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GEMERAl PROGRAM INFORMATION 
ABSTRACT 

THE Rill SYSTEM ReUIABILITY PRUGKAM CONSISTS QF SeuEUTAttUt 
TESTS THAT CHECK THE OPERATION OF THE KXU SYSTEM, 61 
WRITING, READING AND VtRIFYiNG VARIOUS DATA PAT1ERN3, 
UNDER VARIOUS (SELECTABLE) HEAU MOVEMENTS, IT CAN TRANS- 
FER DATA AND CHECK FOR ERRORS OVER THE ENTIRE DISKETTE, 
ALL TRACKS AND SECTORS, OR BETWEEN SEPARATELY SELECTABLE 
TRACK AND SECTOR ADDRESS LIMITS, 

AS WELL AS TRANSFERRING DATA THE PROGRAM ACCUMULATES 
STATICTICAL DATA ON THt FOLLOWING! 

A, COMPLETED PASSES Of- THE PROGRAM 

B, NUMBER OF RESTARTS 

C« NUMBER OF SECTORS wRITTEN/KEAD 

D, REC0VERA9LE AND UNRECOVERABLE FaUlTS AS FOLLOWS! 

1, PARITY ERRORS 

2, ERROR FLAG ERRORS 
3« INTERRUPT ERROKS 
a, SEEK ERRORS 

5, DATA CRC ERRORS 

fc, CRC NO DATA ERRORS 

7g DATA NO CRC ERRORS 

8. DELETED DATa MARK ERRORS 

9, WRITE ERRORS 
la, READ ERRORS 

E, TOTAL OF EACH ERROR CODE DETECTED 

F, TOTAL OF TIMES EACH TRACK WAS ACCESSED 

G, TOTAL OF TIMES hEAU MOVED TO A TRACK, 

H, TOTAL OF ERRORS DETECTED PtH TRACK PER DRIVE, 

THE ABOVE INFOKMATION AS REPORTED BY RUNNING THfc ERROR 
DUMP PROGRAM, 

SYSTEM REQUIREMENTS 

HARDWARE REQUIREMENTS 

THE FOLLOWING EQUIPMENT IS REQUIRED, 

A, POP. 11 SERIES OF COMPUTER WITH MIN 6K MEMORY 

B, RXll FLOPPY DISK SYSTEM INCLUDING DUAL OR SINGLE DRIVE 
RX01 AND PDP-11 INTERFACE. CSEE SECTION a,i FOR SELECTION 
OF REGISTER ADDRESSES AND VECTOR ADDRESS) 

NOTEI A DISKETTE MUST »£ INCLUDED WITH EACH DRIVE TESTED, 

C, CONSOLE TELEPRINTEH 
SOFTWARE REQUIREMENTS 

THIS PROGRAM ASSUMES THAT THE Kxil INTERFACE DIAGNOSTIC 

( MAlNOeC - 11 - 0IRX8-* ) HAS BEEN SUCCESSFULLY RUN ON THIS SYSTEM, 



OPERATING INSTRUCTIONS 



2,0. i OUTLINE OF OPREATING PKOCEDURE 

THE STANDARD OPERATING PROCEDUKE FOR THE HXll RELUaiUITY 
TEST CTO RUN ALL TESTS ON BOTH DRIVES WITH NO OPERATOR 
INTERVENTION VIA THE SWITCH REGISTER) IS AS FOLLQwSI 

A. LOAD THE PROGRAM INTO MEMORY 

U IP IT'S BEING LOADED FROM A DISKETTE , REPLACE 

THE "LIBRARY DISKETTE" WITH A "SCRATUH DISKETTE" 

8, START THE PROGRAM RUNNING AT LOCATION aWftS 

C, THE PROGRAM WILL TYPE OUT THE FOLLOWING: 

1, PROGRAM NAME AND REVISION 

2, RXU REGISTER AND VECTOR ADDRESSES 

3, UNITS BEING TESTED 

a, "P"ATTERN, "T"EST, AND "S"eQUENCfc 

IT THEN STARTS RUNNING UNDER THOSE CONDITIONS 

D, IF THERE ARE NO ERRORS* AT THE END QF THE COMPLETED PASS 
A "D" AND "BELL" IS TYPED, AND THE PROGRAM WILL CONTINUE 
ON FOR ANOTHER PASS, 

E, HALT THE PROGRAM AS FOLLOWS; 

U IF TH£WE IS A HARDWARE SWITCH REGISTER, PUT SW 14 

UP rO MALT AT THE END OF PASS, 

2, IF THEKE IS NO SWITCH REGISTER, OR Tg MALT 

AT ANY TIME, HALT THE PROCESSOR. 

2.1 LOADING PROCEDURE 

LOAD THE PROGRAM INTO MEMORY USING STANDARD PROCEDURE FOR 
BINARY PAPER TAPES, 

MAKE SURE THAT THE TOTAL SYSTEM IS READY FOR OPERATIUN, 
DISKETTE INSERTED CORRECTLY, DUQRS CLOSED ON DRIVES TO BE 
TESTED, ETC, 

2.2 STARTING ADDRESSES 

THE PROGRAM HAS THREE tJI STARTING LOCATIONS, 

2,2,1 INITIAL START CLOC, 2H0) 

THIS STARTING LOCATION INITIALIZES THE PROGRAM AS FOLLOWS: 

A, CLEARS ALL ERROR LOGS 

8, RESETS COUNTERS AND CONSTANTS 

C, TYPES OUT REGISTER ANU VECTOR ADDRESSES BEING USED. 

0, TYPES THE DRIVE AND TEST SELECTION IN "OTESTP" 
E, INITIATES THE COLLECTION OF STATISTICAL DATA PERTAINING 
TO THE OPERATION OF THE RXU SYSTEM, 



a, a, a restart cloc, 2023 

THIS STARTING LOCATION DIRECTS THE PR0GRAf4 TO CQNTI^ue 
RUNNING USING ORIVe ANP TEST StUECTlQNS SPfClFIEO IN THE 
PREVIOUS INITIAL STAKT« IT AL^O CONTINUES TO ACCUMULATE 
STATICTICAL INFORMATION, AMMENOING IT TO TH£ DATA ^LRfeADY 
COLLECTED PRIQR TO THIS RESTART, 



a, a, 3 ERROR OUMP CLOC, ai?«) 

THIS STARTING ADDRESS DIRECTS FHt PROGRAM TO PRINT OUT 
ON THE CONSOLE TELEPRINTER ALL THt DATA ACCUMULATED f-RUM 
THE LAST "INITIAL STAHF" TO THfc TIM£ OF THE PRINTOUT, 
TYPING OUT THIS INFORMATION DOtS NOT DESTROY IT, SO A 
RESTART CAN dt INITIATtD AND INFORMATION WILL CONTINUE 
TO BE COLLECTED, 



a, 3 OPERATOR ACTION BEFORE STARTING PROGRAM 

a,3, 1 DEVICE ADDRESS SELECTION 

LIKE MOST OPTIONS ON THE POPll THE RXll INTERFACE CAHQ HAS 
JUMPERABLE REGISTEW AND VECTOR ADDRESSES, THIS ALLO^iJS FOR 
DEVICES WITH THE SAME STANDARD ADDRESSES TO BE JUMPEktu 
TO AN OTHER ADDRESS SU THEY WILL RUN WITHOUT CONFLICT, 



THE PROGRAM MUST KNOW WHAT ADD«ESSES ARE BEING USED, AS 

IT IS THROUGH rHESE REGISTERS AND VECTOR THAT ALL COMMUNICATION 

BETWEEN THE PQPU AND KXll IS HANDLED, 

IF THE RXn SYSTEM UNDER TEST IS JUMPERED FOR REGISTER 
ADDRESS OTHER THAN STANDARD, WHKH IS RXCS81771763 ANU 

RX08»ir717a, PLACE IN THE MEMQHY LOCATION CALLED "RXCS" (LOC. laBfe) ITS 
NEW ADDRESS, AND IN LOCATION "KXDB" (LOC, iSld) ITS NEW ADDRESS, 
IF THERE AS A NONSTANDARD INTERRUPT VECTOR ADDRESS (STANDARD 

IS Loc asaj then place in memory location called "intvec" 

(LOC, 1304) its new address, 

IF THESE THREE MEMORY LOCATIONS DO NOT CONTAIN THE ADDRESSES THAT 
THE INTERFACE dOARD IS wIRED TO THE PROGRAM WILL REPORT "TEST 
HUNG" AND HALT* OR HALT AT THE VECTOR ADDRESS THAT IS JUMPERED IN, 
CNOTEl THE VECTOR AQDRtSSES CAN NOT B£ JUMPERED FOR LOCATIONS 

200 THROUGH aaa as these are used by the program) 



^,3,^ NON-STANDARD DISKETTE ADDRESS SELliCTION 

IF IT IS UeSIREABLfc TO TEST THt DISKETTES aETwtcN TRACK 
AND SECTOR ADDRESS uIMITS OTHER THAN a£TWEEN THE NORMAL 
OUTER DIAMETER (0D3 AND INNER DIAMETER CIU) TRACK ADU- 
RESSESf ANO/QR MINIMUM IFIRST) AND MAXIMUM (LAST) SECTOR 
ADDRESS, THIS IS DONE 8V THE UPEKATQR MAKING CHANGES TO 
Two (2) MEMORY LOCATIONS BEFORE THE PROGRAM IS STARTED, 
ONE LOCATION IS CALLED QD WHICH CONTAINS TWO 
BYTES ONE FOR OD AND THE UTHER ID TRACK ADDRESSES, THE 
OTHER LOCATION IS CALLtD FIRST AND IT TOO CONTAINS TWO BYTES 
ONE FOR FIRST THE OTHER FOR LAST SECTOR ADDRESS, ll*' 
THESE Two LOCATIONS ARE LEFT CLEAKED THE MAX AND hpN 
VALUES FOR THE ADDRESSES ARE ASSUMED,) 



A, DEFINITIONS: 

OD s ADDRESS OF TRACK AT OUTER DIAMETER CMlN VALUE=0) 

ID » ADDRESS OF TRACK AT INNER DIAMETER CMAX VALUEsU-t* [OCTAL]) 

FIRST 3 ADDRESS OF FIRST StCTOR OF TRACK (MIN VALUEsl) 

LAST s ADDRESS OF LAST SEC fOR OF TRACK (MAX VALUEsi? (OCTAL)) 

9, LOCATIONS: 

TRACKS LOC, U00 8ITS l4----'--8 fe»».---i<5 



C, RESTRICTIONS! 

THE CONTENTS OF "OU" MUST «E LESS THAN uR tQUAL TO THE CONTENTS OF "ID" 
THE CONTENTS OF FIHST MUST BE LESS THAN OR EQUAL TO THE CONTENTS OF "LAST' 

IF THESE LOCATIONS ARE CHANGED TO NEW LIMITS. THEN THE 
PROGRAM WILL ACCESS ONLY THOSE ADDRESSES INCLUSIVE UF 
AND BETWEEN THESE LIMITS, 



SECTORS LOC. 1302 «ITS 



FIRST 



LAST 




3^3.3 SOFTWARE SWiTCh REGISTtK (LOC, lib) 

FOR THE POP il PROCESSORS THAT DO NOT HAVfc A MARDWAKfc SWITCH 

REGISTER, OR IF THE OPtKATOR WISHES TQ SEUFCT THE SOFTWARt 

SWITCH REGISTER, BY PUTTING ALL THE SWITCHES UP TO A "l^CTHIS MUST 

(3E DONE EACH TIME THE l-ROGRAM is STARTED AT LOCATION an0, OTHER 

WISE THE PROGRAM wlLL USE THE HARDWARE SWR.) LOCATION 176 IS ASSIGNED 

AS THE SWITCH REGISTER, BITS StJ TO A " j " IN THIS LOCATION HAVE THE SAMfc 

FUNCTION AS THE CORR I SPUNDI NG SWITCH IN THE HARDWARE SWITCH REGISTER. 

ALL REFERENCES TO THE SWR ARE iNOIRfcCT AND THE PROGRAM ASSIGNS 

THE CORRECT ADDRESS OF THE SWR AT "INITIAL START", 

SEE SECTION 2,4,3 FOR THE SELECTION OF OPERATING CONDITIONS, 

TO CHANGE THE SOFTWARE SWR. WHluE THE PROGRAM IS RUNNING, TYPE 

"CONTROL G", EACH TIM£ THE SWR, IS TO BE TESTED The PROGRAM WILL CHECK 

TQ SEE IF THE SOFTWARE SWR IS SELECTED , AND THE PROGRAM IS NOT RUNNING 

IN AUTO MODE OF KXDP/ACTU, IF BOTH CONDITIONS EXIST THEN THE PROGRAM 

CHECKS FOR THE CTRL G IN THE KtyeoARD SUFFER, IF THE CTRL G IS THERE 

THE CONTENTS OF THE SOKTWARE SWR. ARE PRINTED AND A "Ntw s" IS ASKED 

FOR, THE OPERATOR MAY NOW TYPE IN THE NEW SWITCH REGISTER CONTENTS, 

TERMINATED BY A CARRlAi,E RETUKN CCR), OR IF HE DOESN'T WANT TO CHANGE 

THE SWR. JUST TERHlNATt WITH TM£ ICR), NOTE SEE TrtE CHARACTER RESTRICTIONS 

BELOW, 

WHEN THE PROGRAM DETECTS THE C^-R) IT WILL REPLACE THE CONTENTS OF THE 
SOFTWARE SWR,, IF A NE^ ONE HAS BEEN TYPED IN, AND RETURN TU THE FLOW 
OF THE PROGRAM. 

NOTE: CHARACTER RESTRICTIONS f-QR CHANGING THE SOFTwARt SWR. 

1, ONLY OCTAL NUMttERS » 7 AR£ ACCEPTED, ANY OTHER CHARACTER 
TYPED WILL BE PRINTED AS A ? AND THE wMULE SWR MUST BE RETYPED. 

2, TO WiPt OUT A "NEw" CONTENTS JUST TYPED IN, TYPE CTRL U, 
NOW A NEW CONTENTS CAN BE RETYPED, 

3, ONLY b OCTAL CHARACTERS WILL at PUT INTO THE SWR, 
IF MORE THAN 6 CHARACTERS ARE TYPED IN ONtY THE LAST fe WILL 
BE PUT INTO THfc SwR, 



,J.« TEST PARAMETER SELfeCTlUN ("OTESTP" LOC, 1212) 



THE DRIVE AND TEST SfcLfcCTlON MUST HE DONE BEFORE THE 
PROGRAM STARTS. "OTESTP" (LOCATION 1212) IS WhERE THE BITS 

ARE SET TO TELL THE PROGRAM WHAT DRIVES ARE WANTEU ANU WHAT TEST 
TO RUN, AS INDICATED BELOw, WHEN THE PROGRAM STARTS IT WILL 
TYPE OUT THE TEST CONDITIONS IT IS RUNNING UNDfeR« 



eiT 15 (1) SELECT DRIVE yNlT 1 
BIT I a CD SELECT DRIVE UNIT B 



THEN SET THE TEST CONDITIONS IN 9ITS 8 THROUGH 
AS SHOWN BELO>^, 

"OTESTP" BITS IS H 13 12 U 10 ^ a 7 6 5 « i 2 I 
Ui U0 NOT USED D PPPTTTSSS 



BIT 9 IF SIT y IS ON, ALL WRITE/RFaD FUNCTIONS WILL 

BE IN THE DELETED DATA MODE, 
BIT 6,7,6 SELECTS A DATA PATTERN TO BE USED, 
BIT 5,4,3 SF.LECTS A TEST TO BE PERFORMED. 
BIT 2,1,0 SELECTS A HEAD MOVtM£NT SEQUENCE, 



THE SEtECTIONS ARE DEFINED AS f-DLLOWSS 



P » DATA PATTERN SELECTION 






DEFAULT TU 7 


1 


ZEROS 


2 


ONES 


3 


FLOATING i^ERO 


4 


FLOATING ONE 


5 


125 


b 


314 


7 


Random 



T « FUNCTIONAL TESTS 





DEFAULT TU 7 


1 


WRITE ONLY 


2 


WRITE/READ 


3 


WRITE/READ CHECK 


4 


READ CHECK ONLY 


5 


READ ONLY (CRC CHtCKJ 


6 


WRITE/READ CHECK UN ALTERNATING DRIVES * 


7 


WRITE/REAU/READ CHECK ** 



* NOTES TEST fe WRITES THEN READ CHECKS ANY SELECTED DATA PATTERN 
USING ANY TRACK SEQUENCE, BUT UNE TRACK AT A TIME, 
FIRST ON UNIT (3 THEN UNIT 1, WHEN BOTH 

UNITS HAVE ACCESSED THAT TRACK, IT GOES BACK TO UNIT M 
FOR THE NEXT TRACK, ETC, 



** NOTE: THE, FIRST riALf OF TEST 7 FORCES THE TKAC* StQUENCE TO 
INCREMENT UP THROUGH ALL TRACKS DOING i^RITE/RfcAO CHCCK FUNCTIONS, 
THIS VERIFIES THAT ALL TRACKS ARE ACCESSA8LE. THfc SECOND HALF 
OF THE PASS WILL USE THE SEQUENCE SELECTEO 8Y TmE QPtRATOK AS 
INDICATED BELOW, AND ONLY READ CHECK THE DATA JUST Wr<ITtN. 
THIS VERIFIES THAT THE DATA CAN QE READ FROM A TRACK AFTER THE 
HEAD HAS BEEN MOVED AWAY FROM AND SACK TO THAT TRACK, AT THE 
COMPLETION OF THE PASS THE DELETED DATA BIT IN TEST CONDITIONS IS 
COMPLEMENTED AND THE Nt^T PASS i«llLL BE RUN UNDER THIS NEW CONDITIUN, 



TRACK 


SEOUENCING 


3 


DEFAULT TU 7 


I 


INCREMENT 


2 


DECREMENT 


3 


INCREMENT/DECREMENT 


4 


eouNCE 


5 


OECRtASlNii BOUNCE 


6 


STRObE 


7 


RANDOM 



IF NO BITS ARE SET (ZEROED "OTtsTPt) THEN THE 

PROGRAM WILL SELECT ALL DRIVE UNITS THAT ARE READY AND 

DEFAULT TO TEST CONDITIONS AS INDICATED^ 

THE PROGRAM NEXT PRINTS THE RElilSTER AND VECTOR ADDRESSES 
IT WILL USE IN COMMUNICATING WITH ThE RXll SYSTEM, AS 
EXPLAINED IN SECTION 3,3,1 THE OPERATOR MUST VERIFY THAT THESE 
ADDRESSES ARE THE ONES JUMPERED ON THE RXU iNTERF&Ct HOARD, 

OPERATOR ACTION TO RUN THE PRO«sRAM 

STARTING THE PROGRAM 

SET THE DESIRED STARTING ADDRESS INTO THE SWITCH REGISTER, 
DEPENDING UPON THE TYPE OF CONSOLE AVAILABLE* LOAD ADDRESS, 
AND PRESS STAR r, 

THE PROGRAM WILL TYPE ITS "MAINDEC" NUMBER ANu REVISION, 
AND DEPENDING UPON THE STARTING ADDRESS 00 THE FULUOWINQ: 

SA200 - THE PROGRAM WILL TYPE DRIVE AND TEST PARAMETERS, 
THE TWO REGISTER ADDRESSES, AND VECTOR ADDRESS, 
IT WILL THEN BEGIN FUNCTIONAL TESTING, AND INFORMATION 
COLLECTION, 

SA202 « THE PROGRAM WILL CONFIGURE TO CONDITIONS SET IN 

PREVIOUS "INITIAL START", PRINT OUT THESE CONDITIONS 
ANU CONTINUE FUNCTIONAL TESTING AND DATA COLLECTING, 
THE ONLY OPERATOR ACTION REQUIRED IS THE DYNAMIC 
SELECTION OF OPERATING CONDITIONS IN TM£ SWITCH 
REGISTER AS REWUIREO. 

SA20a • THIS PROGRAM WILL REPORT VIA THE TELEPRINTER ALL 
DATA COLLECTED, NO OTHER OPERATOR ACTION la RE* 
QUIRED, 



a.a.c! OPERATING CONDITIONS 

THE PROGRAM CMfcCKS FOH OPERATING CONDITIONS AT VAPJOUS 

POINTS WHILE RUNNING, IF TH£Rt IS A HAHUWARE SwH TWESt CONDITIONS 

CAN 9E CHANGED AND SET WHILE T^E PKUGRAM IS RUNNING^ IP THE 

SOFTWARE SWP IS IN USEf THEN THESE CONDITIONS MUST dfc SET IN LOCATION 

lib BEFORE THE PORGRAH STARTS, 

SW15 « HALT ON ERt^UR 

SWia a HALT AT END OF PASS 

SWU 5 DON'T PRINT ERROR MESSAGE 

SW12 a TYPE ONLV Ik) DATA ERRORS 

SWll s NO RETRY ON ERROR, LOG HAKO ERROR 

SW08 a NO KECALIBRATION ON SEEK ERRORS 

SW15«SW0 Cn s SELtCT SOFTWARE SWITCH REGISTER 

NOTES IF THFRE IS A HARDWARE SWITCH KEGISTER, AND THE OPERATOR 
WANTS THF SOFTWARE SWITCH REGISTER, PUT ALL SWITCHES UP CI) 
BEFORE STAWTINta THE PROGRAM AT THE INITIAL START ADDRESS, 

THE PROGRAM WILL P^INT A "ORIVt(SJ" SELECTED CONFIRMATION 
MESSAGE THAT IT WAS SUCCESSFUL IN BINDING AT LEAST ONE 
DRIVE READY (DRY) CONDITION ON AN OPERATOR SELECTED DRIVE 
OR EITHER OR aoTH IF NO SELECTION WAS MADE. THt DRIVES 
CONFIRMED AS BEING SELtCTED BY THt PROGRAM MAY LIFFc« 
FROM THAT SELECTED aY THE OPERATOR IF THE PROGRAM DETECTED 
A DRIVE TO 8E NOT HEADY, 

IF HOWEVER THERE ARE NU DRIVES IN THE DRIVE READY CONDITION 
THE PROGRAM WILL TYPE "NO DRiVtS RtADY" AND HALT, AS IT CAN'T 
FUNCTION WITH NO DRIVES READY, WHEN THE REASON FOR ALL 
DRIVES TO 8E NUT READY IS FOUND AND CORRECTED, THE OPER- 
ATOR MAY PRESS CONTINut AND THt PROGRAM WRL 60 BACK TO 
"INITIAL START" OR HE MAY RELOAD THE STARTING ADDRESS 
HIMSELF, 

AS WELL. AS "DRIVECS)" SELECTED THE PROGRAM wiLL TYPE OUT 
THE TEST PARAMETERS SELECTED 0« DEFAULTED TO. IF NON- 
STANDARD TRACK AND/OR SECTOR ADDRESS LIMITS WfcHE SELtCTED 
(SEE SECTION 2, 3. .5 OF THIS DOCUMENT) THESE LIMITS WILL ALSO 
BE PRINTED OUT FOR VARIFICATIDN THt OPERaTuR, 

2,4.3 ACTU & XXDP HOOKS 

THE PROGRAM HAS THE NECESSARY LOCATIONS SET UP FOR OPERATION UNDER 

ACTU AND XXOP OPERATION, THE RROQRAM LOOKS AT THE LOADING MEDIA LOCATION 

AND IF IT CONTAINS THE NUMBER 10, INDICATING THE FLOPPY DISK LOADED 

THE PROGRAM, WILL TYPE THE FOLLOWING PROMPT MESSAGE » WAIT FOR 

A USER RESONSEI 

"CAUTION - IF YOU DESIRE TO TEST UNIT 
REPLACE LOAD MEDIUM WITH A SCRATCH DISKETTE 
THEN PRESS CONTINUE" 

THUS, IF THE OPERATOR WISHES TO TEST DRIVE UNIT M, AFTER LOADING THE 
PROGRAM, HE REMOVES THt LIBRARY DISKETTE FROM DRIVE INSERTS A 
SCRATCH DISKETTE INTO DRIVE 0, AND PRESSES THE 'CONTINUE' SWITCH 



2,5 



PROGRAM OPTIONS 



THERE ARE A CQUPL& OF wAYS THE PWOKHAM CAN BE SET UP TU 
RUN FOR OPTIONAL TESTING, 

2,5,1 PSEUDO * SCOPE LOOP 

BY SETTING THE ADDRESS LIMITS IN OD AND OK FIRST TO ONE 

OF TWO TRACKS AND OR SfcCTQRS IT IS P0SSI8LE TQ PKODUCfc 

A FAIRLY TIGHT PSEUDO » SCOPE LOOP, 8Y RUNNING On|_Y A 

TEST THAT DOES WRITE ONuY OR READ ONLY ITS POSSIBLE 

TQ SCOPE SPECIFIC FUNCTIONS, I.E, FILL BUFFER, WRITE, READ, 

EMPTY BUFFER, 

2«5,2 DISKETTE COMPA r ABILITY 

TO CHECK FOR DATA TRANSFEk C0MPATA8ILITY BETWEEN DRIVE 
UNITS USE THE FOLLOWING PROCEDURE, (IT IS ASSUMED THE 
SYSTEM HAS DUAL DRIVE IF NOT YOU MAY TEST COMPAT- 

AtilLITY BETWEEN DIFFERENT RXU SYSTEMS BY RUNNING THE SAME 
TESTS ON 80TH, ) 

THIS TEST INSURES PRQPfcK HEAD ALIGNMENT, 

A, HAVE DISKETTES IN ttOTH DWIV^S AND DRIVES HEADY, 

CLEAR THE UD/ID AND FJRST/LAST MEMORY LOCATION, FUR 
TOTAL DISKETTE TRANSFERS. 

C, LOAD THE INITIAL START ADDRESS CUOC 200) AND STAKT 
THE PROGRAM RUNNlNli, 

D, SET LOCATION "DTESTP" FOR "DRIVE AND TEST CONDITIONS" ON 
90TH DRIVES, ANY "P"ATT£RN QF DATA, "S"EOUENC£ #1 
(INCRIMENT TRACKS, TO INSURE ALL HEAD POSITIONS ARE ALIGNEDJ 
AND "T"EST 3 (WRITt/READ CHECK), THIS WILL 

WRITE THEN READ ANU VERIFY THE DATA QN 60TH OISKfcTTES, 

E, ALLOW THE PROGRAM TO RUN FUR aT LEAST I COMPLETE PASS, 

NOTE! IF HANOUM PATTERN OR 7) IS SELCTED YOU MUST HALT 
AT THE END UF THE FIRST PASS, AS ADDITIONAL 
PASSES CHANGES THE DATA AND YOU 
WILL GET DATA ERRORS WHEN YOU TRY TO REREAD, 

TO HALT AT THE END OF PASS PUT SWH UP CU WHEN 
"OPERATING CONDITIONS" ARE REQUESTED 8Y THE PROGRAM, 

F, AFTER COMPLETION THE PASS, PROGRAM HALTED, SWAP 
DISKETTES, AND AS YOU ONLY WANT TO READ VERIFY THE 
DATA, START THE PkOGRAM AGAIN AT LQC 204? tlMTIAL 
START) , 

G, WHEN REQUESTED SELECT THE SAMfc DRIVES, PATTERN, AND 
SEQUENCE, auT SELECT TEST H (READ CHECK ONLY), 

H, ALLOW THE PROGRAM TO RUN AS LONG AS YOU WISH TO VERIFY 
THAT DATA WRITTEN AND CHECKED ON ONE DRIVE CAN 9t 
READ AND VERIFIED UN THE OTHER DRIVE, 



2e5,3 RXn TO RX8 COMPATASILI T V 



TO WRITE A DISKETTE On THE «KU AND READ/VERIFY ThE SAM£ DATA ON A 
RX8 REQUIRES THE FOLLOWING: 

A, SET UP LOCATION "uTtSTP" Hili) WITH ONE UF THE 

FOLLOWING DATA PATTERNS 

P»l IW'S) 
P«5 Cl'S) 

p-s iias) * 

* NQTEi IF OlMfe OF THESE PATTERNS IS SELECTED & MODIFICATION 
TO THE PROGt^AH MUST 8£ MADE TO ALLOW THIS DATA TO BE READ ON 
A RS^S SYSTEM^ 

THE MODIFICATION IS IN THE "PATiaS" ROUTEEN, THE TWO t2) LOCATIONS 
CONTAINING THE "COMB DATABYTE" INSTRUCTION HUST 8F CHANGED 
TO TWO (2J nOP'S (OCTAL 0!a0^a0] 

^^^^ 

S, SET IN "DTESTP" TEST 3 WHICH vmIlL WRITE AND READ CHECK 

THE DATA THEREBY VERIFYING THE OUAUITY UF THE DATA PRIOR 
TO THE DISKETTE SWAP, 

SET THE SEQUENCE TO I TQ INSURE THAT ALL TRACKS HAVE b£EN WRITTEN ON, 

C. HAL r THE PROGRAM AT THE CUMPLEnON OF ONE PASS, 

0, THE OiSKETTt IS NOW READY TO BE READ ON THE RX8 

SYSTEM^ SEE MD-8-DIR»9-«t FDR THE PROCEDURE TO READ THIS DISKETTE* 

TO READ A DISKETTE THAI WAS WRITTEN ON A R%& SYSTEM SET UP AS FOLLOWS! 

E, SET IN "OTESTP" THE DATA PATTERN THAT WAS USED BY THE 
RXS SYSTEM, CSEE NOTE UNDER SECTION A, J 

F, SET "OreSTP" FUR TEST 4 (READ CHECK ONLY] AND SEQUENCE i 
TO CHECK ALL TRACKS, START THE PROGRAM, IT SHUULD RUN WITHOUT 

DATA ERRORS, / "\ 



2.6 



RUN TIME 



RUN TIME PER PASS DEPENDS UPON NUMBER OF k FUNCTIONS IN 
THE TEST SELECTED AND THE T»AC« SEQUENCE. 
EXAMPLES OF PUN TIMES t-OLLOW, 

(THESE TIMES A«E FDR I QPIVE AND COMPLETE DISKETTE , MAX IMUM ID/QDj 
FIRST/LAST LIMITS, IF OPERATING ON g DRIVES DOUBLE THE TIME,) 
THESE TIMES ARE FOR A POP ll/dH PROCESSOR AND MAY CHANGE SLIGHTLY FOR 
A FASTER PROCESSOR, 

TEST SELECTION 



p 


T 


S 


TIME/PASS 


7 


e> 


5 


3 MlN,3i3 SEC. 


7 


7 


a 


a MiN,a7 SEC. 


7 


7 


T 


2 MIN,23 StC, 


6 


3 


4 


I MIN.46 5EC, 


7 


3 


I 


I M1N,30 SfcC, 


7 


1 


I 


51 StC. 



NOTE! DUE TO THE SLOW SPEED UF THE LSI U PROCESSOR, THE 
RUN TIME IS A8UUT 00U6Lt THAT LISTED ABOVE, TO SPEED UP THE RUNNING 
OF THIS PROGRAM IN THE LSI U YOU CAN CHANGE THE INTERLEAVE FACTOR, 
OF THE SECTORS, USED In THE PROGRAM, TO DO THIS CHANGE THE 
CONTENTS OF LOCATION "THREE" FKQM OCTAL 3 TO OCTAL 5^ 



3.0 ERROR DETECTION 

3.1 PROGRAM DEFINITIONS 

ON MOST ERRORS THE PROGRAM «ILL TYPE OUT THE CONTENTS UF 
"STATUS A" AND "STATUS 8", 

STATUS A IS THE CONTENTS OF THt RXES (ERROR AND STATUS REGISTER) 

AT THE TIME THE ERRUR IS DETECTED, IT SHOWS THE CRC»PAK,ETC, ERRORS. 

STATUS 8 IS THE "DEFINITIVE ERROR CODES" THAT THE RX^l DETECTED, 
THAT MAY HAVE CAUSED THE ERROR CONDITION, THESE ERROR CODES ARE 

DEFINED IN SECTION 3,3, 

THE PROGRAM HAS DEI'INED THE FOLLOWING AS ERRORS, 

3.1.1 WRITE ERROR 

A WRITE ERROR IS A RETKIED READ ERROR IF THE DATA BEING 
READ IS OF UNKNOWN QUALITY CTht DATA READ IS BEING READ 
FOR THE FIRST TIME AFTER A I^R1T£ FUNCTION) 

3.1.2 READ (CRC) ERROR 

A READ ERROR IS A RETRIED READ ERROR WHERE THE QUALITY OF 
THE DATA BEING READ IS KNOWN GOOD, CTHE DATA HAS SEEN 
READ CORRECTLY SOME TIME PREVIOUSLY,) 



3.1,3 CRC AND DATA t»HO» 

3, 1 .« NO CRC 6.RR0R 8UT DATA tRNOR 

3,1.5 CRC ERROR BUT NO OATA tHROR 

THE ABOve fHREt ERRORS ARt OETtCTEO WhEN THE PROGRAM IS 
VERIFYING THE IJATA REAP OFF THt DISKETTE AGAINST THE OliTA 
THAT SHOULD HAVE SEEN KEAQ, 

UPON A NON-COMPARISON THE PROGRAM TYPtS OUT THE "BYTE" 
NUMBER IN THE SECTOR, THE DATA READ F«QM THE DISKETTE 
"BAG" AND THE EXPECTED DATA "GUOD", 

8YTE« SAD GOOD 

(THE DATA PATTtRNS ARE FORMATTtD AS SHOWN) 

43 (TRACK address; BITS fe - «3) 

I (SECTOR ADDRESS? SITS 4-0) 

BYTES a THROUGH 125 CONTAIN THE SELECTED "P"ATI£RN, 

lib CTH£ SUM OF ALU 9YTtS - 125) 

127 (THt NtGATlve UF 2 TIMES BYTE 126) 

THF PROGRAM DETECTS A CHECKSUM ERROR 13Y SUMMING ALL THt 
DATA READ FROM THE DISKETTE AND COMPARING TmAT SUM TO 

AT THE END QF THE DATA ERROR TYPEUUT THE PROGRAM TYPtS OUT IF 
THE CHECK SUM ACCUMULATED IS "G00a"0R HAD "ERkURS". 

IF BYTES OR I HAVE DATA ERRORS THE OPERATOR MUST CHECK THE RESULTS 
OF THE CHECK SUM. IF IT IS ALSU BAD, THEN THERE wAS A TRUE DATA ERROR, 
IF THE CEHCK SUM IS GOOD, THEN IT MIGHT BE THAT THE HtAU IS NOT 
OVER THE TRACK EXPECTED, AND THERE IS A POSITIONING ERROR, 

3,l,b SEEK ERROR 

A SEEK ERROR IS OEFINgu AS NOT A CRC AND NOT A PARITY ERROR, 

A PROGRAMED RECALIBWATt IS ISSUED TO TRY TO CORRECT tACH SEEK ERROR. 

3,1,7 PARITY ERROR 

A PARITY ERROR RESULTS FROM AN INCORRECT TRANSFER OF A 
COMMAND WORD FROM THE RXH INTERFACE TO THE RXiSl MICRO- 
PROCESSOR CONTROLLER* 



3.2 



DEFINITIVE ERROR COOES 



THE RX01 MlcROCONTWOLLtH! has OtFlNfcO THE ERROR COOES AND 
MEANINGS WHICH ARE AVAILAeUE TU iHfc PROGRAM 6Y ISSUING 
COMMAND #7 "READ THE (3-COOE STATUS REGISTER", 

A DEFINITIVE £WROR QOOt REPRESENTS [WHERE] WlTHlN A FUNC- 
TION AN ERROR lAiAS DETECTED, 

THE FOLIOWING ARE THE DEFINITIVE ERROR COOES AND MEANINGS! 

00 m NO ERROR 

10 - DRIVE FAILED TO SEE HQME FROM INITIALIZE 

20 - DRIVE I FAILED TO SEE HOME FROM INITIALIZE 

313 • HOME FOUND WHEN STEPPING QUT 10 TRACKS FROM INIT 

40 - TRIED TO ACCESS A TRACK SREATER THAN /TtOECIMAL) 

5d « HOME WAS FOUND BEFORE DESIRED THACK 

60 - SELF DIAGNOSTIC EHRQ» 

7i3 » DESIRED SECTOR NOT FOUND AFTER SAMPLING 52 HtADERS 

100 " WRITE PROTECT ERROR 

110 - MORE THAN 40US AND NU StP CLOCK DETECTED 

120 - A PREAMBLE CUJLO NOT BE FOUND 

130 «• PREAMBLE FOUND BUT NO IQ MARO FOUND IN TTMfc 

140 - CRC ERROR On SUPPUSIULY GOOD HEADER 

150 - GOOD HEADER INO CRC ERROR) BUT TRACK COMPAKE ERROR 

160 « IDAM NOT FOUND IN TOME 

170 - DATA AM NOT f-OUNO IN TIME 

200 - DATA CRC ERROR 

210 » ALL PARITY ERRORS 

3,3 UNEXPECTED QR MISSING fcRRQR CONUITXONS 

3.3.1 MISSING DD MARK 

AN ERROR WHEN THE PROGRAM WROTE DELETED DATA INFORMATION 
0UT NO DELETED DATA MAKK wA3 DETECTED WHEN THE QATa was 
READ. 

3.3.2 UNEXPECTED DO MARK 

AN ERROR WHEN A DELETED DATA MARK IS DETECTED BUT NO 
DELETED DATA WAS WRITTEN, 



3,3,i NO I^JTERRUPT QN DQN£ 

THE INTERKUPT tNA8L£ 81T WAS StT AND THt DQnE FlAi, «as 
SET BUT NO IMTERRUPT QCCURR£Dg 

3,3,« UNKNOWN INTE«?RUPT 

IF AN iNTERRUPr OCCURS FROM ANT OTHER OEVICE wHItS THia 
PROGRAM IS RUNNING IT WILL HALl AT THE INTERRUPT VECTOR 
LOCATION. 

IF AN iNTtRRUPT OCCURS ON InTEKRUPT VECTOR LOCATION db<i 
CR»U3f AND THSRE is NU error, DONE, OR ERROR STATUS 
CONDITION SET, THEN IT WILL BE TAGGED Ag AN UnKNOwN 
INTERRUPT, 

3,4 POI^/ER FAILURE 



THE PROGRAH TESTS F0» TwO TYPES Of- POwER FAILURE, TuTAL SVSTtM 
POWER LOSS AND RXU PQwtR LOSS RESULTING IN A W£CALl»RATION 

OF THE ORIVES, 

THE TOTAL SYSTEM POwER FAILURE lb DETECTED ThE "SYSMAC" 
SUBROUTINE ^SPOwER, »^HtN THE PUWER IS DETECTED TO Bt GOING 
DOWN, THE REGISTERS ARt SANEO^ WHEN THE POWER COMES «ACK UP 
THE REGISTERS ARE RtSTUREO AND THE MESSAGE "POWER" ia PRINTED, 
THE PROGRAM THEN AU rUMAT ICALL Y ODES A RESTART, 

LOSS OF POWER IN THE H%ll CAUSES A RECALIBRATIUN UF ALL 
DRIVES. WHEN THIS HAPPtNS, THE "INIT DONE" alT IS SET IN THE 
THE RX£3 HEGISrER ALONG WITH THE NORMAL "DONE" FLAG. AT tACH 
INTERRUPT THE PROGi^AM TESTS FOR InIT DONE, IF IT IS f-OUNU 
TRUE, The function wAS NOT COMPLETED AND A POwER LOSS MUST 
HAVE BEEN OETECTEDt WHtN THIS HAPPENS THE PROGRAM TYPES 
OUT "RXU POWER" AND DOES AN AUTOMATIC RESTART. 



IF THERE ARE REPEATED, NOTHING ELSE HAPPENS 8ur, R»U POWER 
MESSAGES THE INl^ DONE FLAG MIGHT 8E STUCK pN, 

3,5 PROGRAM HUNG 

THERE ARE MANY PLACES WHERE THE PROGRAM MUST WAIT FOR AN OPERATION 
TO 9E COMPLETED IN THE RX0i, THESE ARE WAITING FOR THE 
"DONE" FLAG TO INOICATt A FUNCTION IS COMPLETED, OR WAITING 
FUR A TRANSFER REQUEST "TR" FLAG TO SEND OR RECEIVE THE NEXT 
BYTE OF INFORMATION, If THE RXU DOES NOT COME dACK with EITHER 
OR 80TH OF THESE FLAGS THE PROGRAM WOULD HANG UP, 

TO INHIBIT THIS FROM HAPPENING THERE ARE TWO SUBROUTINES USED 
TO CHECK FOR THESE TWO FLAGS, 



THE "OONECK" LOOKS FOR THE DONE FLAG AND IF IT IS NOT SEEN 
WITHIN A SPECIFIC TIME THE "TEST HUNG" MESSAGE IS PRINTED 
AND THE PROGRAM HALTS, IN REGISTER 3 (177703) IS THE RETURN 
ADDRESS OF THE TEST ThaT IS WAITING FOR THE DONE FLAG. 



"TRCK" LOOKS FOR THE "TR" FtAGa IF IT IS NOT SfeEN WITHIN A 
SPECIFIC TIME IT ALSO PRINTS TM£ "TEST HUNG" MfcSSAGt AND 
HALTS, IN THE 3P C1777k56) IS THE RETURN ADDRESS Of THE 
TEST WAITING FO^ THE TR FlkQ, 

THE WAITING TIME FOR THE TWO FLAGS DEPENDS UPON Tmf HOST PROCESSOR AS 
INDICATED 9EL0WI 



"DONE" WAIT 



BIPOL 14 SEC, 

11/05 CORE SEC« 



"TR" WAIT 



11/45 bIPOL .aa SEC, 
U/05 CORfc a SEC. 



a,0 ERROR REPORTING 

ALL ERRORS DETECTED WILL 8E REPORTED I? Swi3 s id FOR 
OPERATING CONDITIONS^ IF Swl^ s l THEN pNLV lia DATA 
ERRORS FOR i SECTOR WIt.L 6E REPORTED^ AND A TOTAL OF 
DATA ERRORS FOR THAT StCTOR WILL BE REPORTED AT TmE END 
OF THE SECTOR, 

THE END OF PASS INDICATOR TYPED^ALSO INDICATES wEITHfeR ANY ERRORS 
OCCURED DURRING THAT PASS« IF THERE WERE NO Ek^^DRS Tmen A "*" 
IS PRINTED. IF THERE wERE ERRORS THEN A "-" IS PWlNltD. 
THE TOTAL ACCUMULATED ERRORS ANQ SYSTEMS OPERATION lb 
REPORTED 8Y THE "ERROR DUMP" RKoGRAM. 

5t0 HALTS 

THERE ARE VARIOUS HALT LOCATIONS THROUGHOUT The PROGWAM, 
SOME ARE THE RESULTS Or- "HARD" ERRORS OTHERS ARt wAlTING FOR 
INTERVENTION, THEY ARE LISTED bELOWi 



HALT # 


TYPE 


DEFINITION 


HLTIS 


NO ER«!UN 


ICAUTION «• LOAD MEDIUM ON UNIT 


HLT3! 


ERROR 


lERRORS FOUND ON RECAL FUNCTIONS 


HLT4S 


ERROR 


IMARD PARITY ERRORS 


HLT5I 


ERROR 


INO ONlvES READY 


HLT6S 


ERROR 


ISW15 SET ON PARITY ERROR 


HLT7S 


ERROR 


;swi5 SET ON SEEK ERROR 


HLT10S 


ERROR 


;SW15 SET ON CRC GENERATOR ERROR (NO DATES ERROR) 


HLTllI 


ERROR 


;hARO CRC GENERATOR tRRQR CNO DATA ERRORS) 


NLTias 


ERROR 


;SW15 SET ON DATA CRC ERROR 


HLT13; 


ERROR 


;SW15 SET ON MISSING DETECTED DATA ERROR 


HLTHS 


ERROR 


ISW15 SET ON DATA NO CRC ERROR 


HLT15S 


ERROR 


;SW15 SET ON MISSING INTERRUPT AT DONE 


HLT16I 


NO ERROR 


fHALT AT END OF PASS 


HLT17: 


NO ERROR 


IHALT at end OF ERRUR UU^P 


HLTa0S 


ERROR 


IPROGRAM HUNG WAITING FOR DONE 


HLT21I 


ERROR 


IPROGRAM HUNG WAITING FOR TR FLAG 
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D|R^AE«PU 



.NLIST CND,MD,MC 
•LIST ME 

,ENAttu ABSfAMA 

9MCALL 8 HEADER J .EQUAT, , SETUP ; t STYPF ^ « $T YPOC T ^ , *N£ AD 



6 




7 




8 
9 




10 




11 




la 




13 




la 




15 




16 




17 




la 




19 




20 


000001 


Zi 


160000 


22 




23 




2a 




25 




26 




27 




28 




29 




30 




31 




32 




33 




3a 




35 




36 




37 




38 




39 




aQ 




«1 




«2 




a 3 




«a 




as 




iib 


001200 


m 








a4 




50 




5l 


00001 1 


b2 


330012 


53 


000015 


54 


000200 


55 


177776 


56 





.MCALL ,SPUWtR,5TAHS. , SDB2D , , $SB2U , , $5 & V E , , STK AP # GETSWR 



.TITLE MAlNDtC«ll-UZHXA-»E 
|«C0PYR1GHT (CJ MARCH 21,|976 
MDIGITAL EQUIPMENT COHP, 
»*MAYNAftD, MA;SS, 0l7!3a 
}* 

MPROGRAM BY OAVIO L AOAMS 
I » 

>*THIS PROGRAM 1«AS ASStMBLEO USING THE PDP-ll MAINDEC SYSMAC 
MPACKAGE (MAINOEC-I i-UZQAC-C03 ,MAR 21, 1976, 

M 

SSWRal60000 MHAUT ON ERROR, LOOP ON TEST, iNhl&IT ERROR TYpQUT 

jCnpYRIGHT ICJ 19?S,1976 

JTHIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY 
;0N A SINULt COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH 
iTHe INCLUSION OF THE ABOVE COPYRIGHT NOTICE, THIS 
JSOFTWARE, OK ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED 
JUR OTHeRwiSfe MADE AVAILABLE TO ANY OTMfcR PERSON 
.•EXCEPT FOR USt QN SUCH SYSTEM AND TO ONE WMQ AGREES TO 
/THESE LICENSE TERMS. TITLE TO OWNERSHIP OF THE 
fSOFTwARE SMALL AT ALL TIMES REMAIN IN DEC. 
f 

jTHt XNFOMATIQN IN THIS DOCUMENT IS SUBJECT TO CHANGE 
JWTTHOUT NOTlCt AND SHOULD NOT BE CONSTRUED AS A COMMITMENT 
;BY Oi&ITAL tQUlPMENT CORPORATION, 
f 

;OEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY 
}0F ITS SOFTWARE ON EQUIPMENT WMlCH IS NOT SUPPLIED BY 
f DEC, 



.SBTTL BASIC DEFINITIONS 

MINITIAL AuDRtSS Of THE STACK POINTER «** 1200 *«* 
STACKS 1200 

.fcOUIV EMT,EHKOH j;BASIC DEFINITION OF fcRROR CALL 

,E0UIV lOT.SCUPE JJHASIC DEFINITION OF SCOPE CALL 



l*MiSCELLANeOUS DEFINITIONS 



HTs 

LFa 

CRs 

CNLFa 

PSa 

.EUUIV 



1 1 
12 
15 

2w)0 

17777b 

PS,PSw 



;;CODE FOR HORIZONTAL TAR 

?,'COUE FOR LINE FEED 

nCOUE FOR CARRIAbE RtTURN 

nCOOE FOR CARRIAGE RETURN-LINE FEED 

UPROCESSOR STATUS WORD 



MAlNDEC-1 l-DZPXA-E MACYll 27 (732) 

DZRXAE.Pll BASIC DEFINITIONS 



2w3-SEP-7b I5:ab PAbE 3 



57 
58 
59 
60 
61 
62 
63 



68 
69 
70 
71 
72 
73 



63 
64 



177774 
177772 
177570 
177570 



000000 

000031 
000002 
300003 
000004 
000005 

000006 

300007 



STKLMTa 177774 

PIRQa 177772 

DSWRs 177570 

DDlSPa 17757W 



nSTACK LIMIT REGISTER 
HPROGRAM INTERRUPT REQUEST REGISTER 
HHARUWARE SWITCH REGISTER 
;;HARDWARt DISPLAY REGISTER 



J*GENERAL PURPOSfc RtblSTEK DEFINITIONS 
R0a 
R13 
Rga 
R3a 
R4a 
R5» 
Rbs 
R7S 

,EQUIV 
.EUUIV 



%0 




J .'GENERAL 


REGISTER 


%1 




; fGENERAL 


REGISTER 


%2 




MGENERAL 


REGISTER 


X3 




IGENERAL 


REGISTER 


3(4 




IIGENERAL 


REGISTER 


%5 




J .'GENERAL 


REGISTER 


X6 




MGENERAL 


REGISTER 


%7 




MGENERAL 


REGISTER 


R6, 


SP 


nSTACK POINTER 


R7, 


,PC 


J f PROGRAM 


COUNTER 



74 




MPRIO»ITY LEVEL 


DEFINITIONS 






75 


300003 


PR0a 





MPRIORITY 


LEVEL 





76 


000040 


PRlB 


40 


MPRIORITY 


LEVEL 


1 


77 


000100 


PR2a 


100 


IfPRIORITY 


LEVEL 


2 


78 


000140 


PR38 


140 


J /PRIORITY 


LEVEL 


3 


79 


000200 


PR4s 


200 


nPRlORITY 


LEVEL 


4 


60 


000240 


PRbs 


240 


MPWIORITY 


LEVEL 


5 


81 


000300 


PR6a 


300 


MPRIORITY 


LEVEL 


6 


62 


000340 


PR7s 


340 


IfPRIORITY 


LEVEL 


7 



/*"SWITCH REGISTER" SWITCH DEFINITIONS 



95 


100000 


Swl5» 


100000 


66 


040000 


SW148 


40000 


87 


020000 


SW13" 


20000 


68 


01000,4 


Sw12b 


10000 


89 


004000 


SmUs 


4000 






002000 


SWl0a 


2000 




91 


001000 


Sw09a 


1000 




92 


000400 


SW088 


400 




93 


000200 


Sw07a 


200 




94 


000100 


SW06B 


100 




95 


000040 


SW05B 


40 




96 


000020 




20 




97 


020010 


SW03S 


10 




98 


000004 


SM02S 


4 




99 


000002 


SW01a 


2 




100 


000001 


SW008 


1 




101 




.EOUIV 


SW09, 


SW9 


102 




.EQUIV 


sw0e, 


SW8 


103 




.EQUIV 


SW07, 


SW7 


104 




.EQUIV 


SW06, 


SW6 


105 




•EQUIV 


SW05, 


SW5 


|06 




•EUUIV 


SW04, 


SWa 


107 




•EQUIV 


SW03, 


SW3 


108 




.EQUIV 


SW02, 


SW2 


109 




•EQUIV 


SW01, 


swi 


110 




.EQUIV 


SW00, 


SW0 


lU 










112 




»*DATA 


BIT OEFINI 
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BASIC DEFINITIONS 








113 


! 00000 


BITlSs 


100000 


iU 


040000 


aiT148 


■♦ttlioiOlO 




lis 


020000 


8IT1 3s 


20000 




lib 


10000 


BIT I2a 


10000 




in 


004000 


BITllB 


4000 




lis 


003000 


BITl0a 


2000 




J 19 


001000 


BI T09s 






120 


000400 


BIT06S 






I2l 


000200 


gif 07a 


200 




122 


0001 00 


SIT06a 


100 




123 


000040 


BITBSs 


40 




1S4 


000020 


8IT04S 






125 


0000 1 


8 1 T 3 8 






126 


000004 


BI T02a 


4 




127 


000002 


BIT0I a 






126 


00000 1 


eiT00a 






129 




»eQuiv 


SIT09f 


8IT9 


130 




.EUUIV 


B I T08 1 


B I T 8 


131 




•cQUIV 


8IT07 I 


HIT? 


132 




•feOUlV 


6 1 T06 1 


B I T6 


133 




.gutji V 


81 T05 


BITS 


134 




•EQUI V 


B 1 T04 ^ 


B 1 T4 


135 




.EQUIV 


BIT03| 


BITS 


136 




bEQUIV 


BIT02, 


B I T 2 


137 




•fcUuI V 


8IT01, 


HI T-^ 


133 




.fcQUlV 


8IT00, 




139 










140 




MBASIC 


"CPU" 




I'H 


000004 


EHHVECa 


4 


II line. UUi RINU Uirlt" CnKuna 




0000 1 


R6SVEC" 


10 


MRESERVEO AND ILLEGAL INSTRUCTIONS 


i43 


0000ia 


T8ITVEC 


= 14 


n"T" BIT 


144 


000014 


Tt^TVECa 


14 


;;trac£ trap 


|45 


0000 1 4 


BPTVECa 


14 


nHREAKPOINT trap C8PT) 


146 


000020 


lOTVECs 


20 


hinput/output trap (IOT) a*SCOPE** 


H7 


000024 


PwHveCs 


2a 


MPQWER FAIL 


|48 


000030 


EMTVECa 


30 


IJEMULATOR trap (EMT) **error«* 


149 


000034 


TRAPVEC834 


n"THAP" TRAP 


150 


000060 


TKVECs 


60 


MTTY KEYBOARD VECTOR 


l5l 


000064 


TPVtCa 


64 


IJTTY PRINTER VECTOR 


152 


0(t30240 


PIHOVEC8240 


IIPROGRAM INTERRUPT REQUEST VECTOR 


153 










154 










155 






JSPECHl EQUATES 


156 










1^57 










158 


000013 




RD0STAT aij 


159 


000033 




RQISTAT 833 


160 


000017 






B17 


161 


000343 




DQNEBir sa0 


162 


000101 




F8IE 


al0l 


163 


000103 




EBIt 


8103 


164 


000105 




WRTIE 


al0a 


165 


000107 




RDIE 


8107 


166 


000115 




WTDOIt 


ail5 


167 


340001 




RECAL 


840001 


168 


000200 




PRfl 


8|?0i^ 
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DZHXAE^Pll 


BASIC 


DEFINITIONS 








169 




000340 




PR7 BSaifl 






170 




000000 




OPEN 






171 














172 




000000 




.80 






173 


000000 


000000 


000000 


,MORU 


10 




174 














175 




000024 




,834 






176 


000024 


01376« 




SPWHDN 






177 


000026 


000340 




3a0 






178 














179 




000034 




,834 






180 


000034 


013716 




STRAP 




^ADDRESS OF TRAP SERVICE 


181 


000036 


000340 




340 






182 














183 




00004b 










184 


000046 


011130 




LUSICAL 




;actii eop hOOK 


185 














186 




000052 




,852 






187 


000052 


000000 




,iM0RO 






188 














189 




000174 




»8l7a 






190 


000174 


000000 




oispreg: 






l"*! 


000176 


000000 




SWREGJ 






192 














193 














194 














195 














196 








JSTARTING AOORfcSSES 




197 














198 








fINITIAL START 


8200 


/CLEARS ALL ERROR LOGS, RESETS COUNTERS, AND ALLOwS FOR 


199 
200 












/SELECTION OF DRIVES ANO TEST CONDITIONS 


201 








^RESTART 


8202 


/USES PREVIOUS INITIAL START DRIVES AND TEST 


2G92 












/SELECTION AND CONTINUES TO ACCUMULATE STATISTICAL DATA 


203 














204 








TERROR REPORT 


8204 


/PRINTS OUT ALL RUN AND ERROR CONDITIONS 


205 












/ACUMULATED OVER THE RUN OF THE PROGRAM, 


206 














207 














208 














209 




000200 




,8200 






210 


000200 


000402 




BR IS 






2U 


000202 


000403 




BR 2S 






212 


000204 


000404 




BR 35 






213 


000206 


000137 


001220 


ISI JHP SA200 


lOPERATOR SELECTED CONDITIONS 


214 


000212 


000137 


002700 


2SI JMP RESTART 


IRE8TART PROGRAM wITH PREVIOUS CONDITIONS 


215 


000216 


300137 


021062 


3SI JMP tRUUMP 


^STATISTICAL ERRO« PRINT OUT 


216 














217 














216 










219 














220 








ITHE FOLLOWING 


LOCATIONS "OD"i"IO", "FIRST", AND "LAST" 


221 








IMAY BE CHANGEU 


BY THE 


OPERATOR MANUALLY HOWEVER FOLLOWING THESE RESTRICTIONS, 


222 








; (IF THESE LOCATIONS ARE LEFT CLEARED, MAX AND MIN VALUES ARE ASSUMED) 


223 








1 






224 








f 1. UtFINITATIONSi 



OZRXSE.PU BASIC OEFiNiTfyNS 

225 r OUSAUpRt^S OF TRACK AT UUTTER OIAHETEH (HIN VALUEaSfl) 

22fe ? lOaADDPtSb OF TRACK INNER OIAMfcTER (MAX VALUEsUa [OCTAL] J 

227 f I^IWSTsADDReSS OF FIRST SECTOR OF TRACK CMIN VALuEsU 

228 f UASTsAODRESS OF LAST SECTOR OF TRACK [MAX VALUEa32 COCTALJ ) 

229 I 

230 I 2, LOCATIONS! 

231 I TRACKS LOC, 1200 BITS la — — 8 »0 
2J2 f ID 00 

233 f 

234 f SECTORS LOC» 1202 BITS 12 8 4 

235 ; LAST FIRST 

236 t 

237 I 3» restrictions: 

238 J THE CONTENTS OF "OD" MUST BE <» THE CONTENTS OF "ID" 

239 ; THE CONTENTS OF FIRST MUST BE <" THE CONTENTS OF "LAST" 
240 

241 
242 

243 001200 ,31200 

244 001200 0003P10 DO! 

245 031201 luaOO+l 

2*^6 001202 000000 FIHSTI 

247 001203 LASTsFlNST+l 

2<t6 
249 

251 
252 

2^3 ITHE NtXT ^QHU IS THE LOCATION OF THE "INTERRUPT VECTOR" AOORESS 

254 ;IF The HARDWARE IS JUMPERED FOR OTHER THAN STANDARD t2b4) VECTOR 

255 JAODRESS, THtN LOAD INTO THIS LOCATION THE NEW VECTOR ADDRESS, 

25e> t 

257 ; IF This ADDRESS IS INCORRECT (DOES NOT MATCH THE HARDWARE) THE 

258 {PROGRAM WILL HALT AT THE VECTOR ADDRESS THE HARDWARE IS JUMPERED 

259 JTO, AS ALL UTHfcR VECTOR ADDRESSES wIlL HAVE HALTJj IN THEM, 

260 { 

2*'! I *****a«*at«***««ft*«tft*A*4«***sN0TE ******************************* 

262 i 

263 ITHE INTfcRRyPT VECTOR ADDRESS CAN NOT BE SET FOR ADURtSSES 200 

264 ; THRU 243, A3 THESE ADDRtSS ARE USED I? Y THE PROGRAM 

265 f 

267 

268 001204 000264 INTVEC! 264 

269 

270 |j***»«***ft*«*«««44**a*fti»******«ft******4*********ft***«***si!*«***** 

271 fTHE FOLLOWING TWO WORDS CONTAIN THE DEVICE CODES FOR 
2'2 IThE RXU IimTERFACE REGISTERS 

273 f RXC3 a COMMAND STATUS REGISTER 

274 I RXOa a DATA BUFFER REGISTER (USED AT VARIOUS TIMES FOR:) 

275 ; [RXTA B TRACK ADDRESS) 

276 f CRXSA s SECTOR ADDRESS) 

277 i [RXES a fcKROR STATUS) 

278 JIF THE RXU SYSTEM UNDER TEST IS JUMPERED FOR REGISTtR 

279 fADORtSSES UThER THAN STANDARD! RXCS s 177170 

280 i RXDd 8 177172 
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291 
2S2 

aej 

2»4 
285 
206 
287 
288 
289 

2^*0 001206 177170 
291 301210 177172 
292 
293 
294 
295 
296 
297 
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JPLACE IN THtSt TWO WORDS THE CORRESPONDING NEW ADDRESSES FOR 
ITHE REGISTERS. THE PROGRAM wiLL TYPE OUT THE REGISTER 
lADORESSES FOR VERIFICATION BY THE OPERATOR. IF THfc ADDRESSES 
lARE INCORRECT (I,E, - DON'T MATCH THE HARDWARE) AND THE PROGRAM 
IIS RUN WITH TH6 INCORRECT ADDRESSES, A 'HUNG' CONDITION WILL BE 
iREtPORTEO AND THE PROGRAM WILL 'HALT' AS THE RXU WiLL NOT BE 
lABLE TO RESPOND TO COMMANDS, 



RXCS! 
RXDB! 



298 


; 15 




R « ERROR FLAG 


299 


t 14 




W - INITIALIZE CRECALiaRATE) 


35?0 


I 13 






301 


t TO 




NOT USED 


302 


1 a 






303 


1 7 




R - TRANSFER REQUEST (TR) FLAG 


304 


; b 




R/W - INTERUPT ENABLE 


305 


i 5 




R - DONE FLAG 


306 


t 4 




W - UNIT SELECT 


307 


; 3 




W - FUNCTION 


308 


; 2 




W « FUNCTION 


309 


t 1 




W - FUNCTION 


310 


1 




W - 60 



3U 
312 
313 
3i4 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
326 
329 
330 
331 
332 
333 
334 
335 
336 



1771 ria 
U71/2 



BIT ASSIGNMtNT IN THE RXCS REGISTER. 



READ ONLY BIT 
WRITt ONLY BIT 



FUNCTION C0UE3S 



+ GO 8 FILL BUFFER 

2 * GO a EMPTY BUFFER 

« * GO a WRITE SECTOR 

6 •* GO 8 READ SECTOR 

10 (NOT USED) 

12 + GO a READ STATUS "A" 

14 * GO 8 WRITE DELETED DATA 

16 + GO a READ STATUS "B" (COOES) 



THE FOLLOWING BIT ASSIGNMENTS REPRESENfES THE STATUS AT THE END OF 
FUNCTION (EXCEPT FUNCTION "READ STATUS 8") DISPLAYED IN THE 
RX DATA BUFFER (RXOB), 

15 - 

TO NOT USED 
8 m 

7 - SELECTED DRIVE READY * 
6 « DELETED DATA 
5 « 
4 " 

3 - WRITE PROTECT ERROR (WHEN AVAILABLE) 
2 « INITIALIZE DONE 
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33T II" P&KITV ERROR 

33a I » CNC ERROR 

3S«J I 

3<»0 |e VISIBLE UNLY IF THE FUNCTION WAS A #12 "READ STATUS A« 

3fli I 

3«2 I** vlSIeJlt ONLV AFTER AN INITIALIZE CKEY3 OR tPROGRAMMEOJ vJAS ISSUED* 

3«3 

3<»<l 001213 000000 OTtSTPI .WORU id JTEST SELECTION WORD 

S'JS 00iaifl 177570 SWR: ,WQRU USWR JAD0RE3S OF SWITCH REUISTER 

316 001216 177570 DISPLAY: ,W0RU QOISP J ADDRESS OF DISPLAY KEGISTfcR 



3^7 






318 




319 






350 


ISTART OF 


OPERATOR SELECTABLE TEST, DATA PATTERNS, AND DRIVE UNIT CONDITIONS 


351 


fSET THE 


TEST CONDITIONS WANTED COR LEAVE 0) IN LOCATION CALLED 


352 


?«0TE3rP" 


CLUC. 1212J, BEFORE STARTING THE PROGRAM, WHEN THE PROGRAM 


353 


ISTARTS IT WILL TYPE OUT THE TEST CONOITIONS IT IS OPtRATIMG UNDER. 


35<| 


I 




355 






356 


ISWITCH REGISTER BITS 


357 


; 




358 


f 15 14 


13 12 U 10 9 8 7 6 5 4 3 2 1 


359 


f Ul U0 


NOT USED DPPPTT TSS5 


360 


1 




361 


f Ul SELtCT DRIVE UNIT I 


362 


1 U0 SELECT DRIVE UNIT 


363 


IIF NEITHER URIVE IS SPECIFIED, PROGRAH WILL SELECT ALL DRIVES 


364 


ITHAT ARE 


READY 


365 


t 




366 


t D a 


DELETED DATA FUNCTIONS 


367 


f 




368 


fIF THIS 


SWITCH IS ON ALL READ AND WRITE FUNCTIONS WILL dE IN THE 


369 


lOELETED 


DATA MODE 


370 


1 




371 


1 




372 


f P a 


DATA PATTERN SELECTION 


373 


1 


DO PATTERN 7 (RANDOM) 


374 


; 1 


ZfcROS 


375 


t 2 


ONES 


376 


; 5 


FLOATING ZERO 


377 


1 4 


FLOATING ONE 


378 


; 5 


lats 


379 


; 




360 


; 7 


RANDOK 


381 






362 


t T s 


FUNCTIONAL TESTS 


383 


f y 


DO TEST 7 (WRITE/READ/HEAU CHECK) 


384 


f I 


WHITE ONLY 


365 


; ^ 


WHITE/READ 


386 


1 3 


WRITE/READ CHECK 


3«7 


» 4 


READ CHECK ONLY 


388 


1 5 


READ ONLY 


389 


1 b 


WRITE/READ CHECK ON ALTERNATE DRIVES 


390 


; 7 


WklTE/READ/READ CHECK * 


391 






392 


J * NUTfc: 


THt URSr HALF OF TEST 7 FORCES THE TRACK SEQUENCE 
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393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
406 
409 
410 
111 
112 
413 
414 
415 
416 
117 
116 
119 
420 
421 
422 
123 
121 
425 
126 
127 
128 
129 
430 
131 
132 
133 
131 
135 
136 
137 
438 
139 
110 
HI 

lis 

113 
HI 
415 
116 
117 

lis 



rTO INCRlHgNT UP THROUGH ALL THE TRACKS DOING WRITE / READ CHECK FUNCTIONS, 
ITHIS VERIFIES THAT ALL ThE TRACKS ARE ACCESSABLE, 

JTHE SECOND HALF OF THE PASS WILL USE THE SEQUENCE SELECTED BY THE 

JOPERATOR AS INDICATED BELOW, AND ONLY READ CHECK THE DATA JUST WRITTEN. 

JTHIS VERIFIES THAT THE DATA CAN BE READ FROM A TRACK, AFTER THE HEAD HAS SEEN 

IMOVEU AWAY PROM AND BACK TO THAT TRACK, AT THE COMPLETION OF TnE PASS 

ITHE deletes) data HIT IN TEST CONDITIONS IS COMPLEMENTED AND THE NEXT 

;PaSS WILL Bfc RUN UNDER THIS NEw CONDITION, 

I 

t S « TRACK SEQUENCING 

; DO SEQUENCE 7 (RANDOM) 

; 1 INCREMENT 

I 2 DECREMENT 

t i INCREMENT/DECREMENT 

I 4 BOUNCE 

f 5 DECREASING BOUNCE 

f b STROBE 

I 7 RANDOM 

SET THE QPERAflNG CONDITIONS IN THE SWITCH REGISTER (HARDWARE), 
OR The software switch REGISTER (LOC, 17b) BEFORE STARTING THE PROGRAM, 

SWITCHES DO THE FOLLOWING WHEN SET TO "1", 



Sw ib 
SW 14 
SW 13 
Sw 12 
SW 11 

SW 8 

SW15 - 



SHALT ON ERROR 

8HALT AT END OF TEST 

sOON'T PRINT ERROR MESSAGE 

aTYPE ONLY 10 DATA ERRORS 

aNO RETRY ON ERROR, LOG HARD ERROR 

8NU RECALIBRATION ON SEEK ERRORS 

8W0 bSELECT software SWITCH REGISTER 



001220 000005 

001222 012737 177570 001214 

001230 012706 001200 

001231 012746 000340 

001210 012716 001216 

001211 000002 
001216 101100 016551 
001252 012737 001272 
001260 022777 177777 177726 
001266 001102 

001270 000423 

001272 022636 

001274 012737 000176 001214 

001302 012737 000171 001216 



3SI 
4SI 



RESET 

MOV »17757a,SWR 
MOV »STACK,SP 
MOV #PR7,-(SP) 
MOV »2S,-(5P) 
RTI 

TYPE ,MREV 

MOV #38,4 

CMP #177777, fSWR 

BEQ 4$ 

BR 39 

CMP (SP3+,CSP)+ 
MOV WSWREG, SWR 

MOV »OISPREG, DISPLAY 



UNITIALIZE THE RX01 
IRESET TO HARDWARE SWR, 



IPRINT NAME AND REVISION 
ISET TIME OUT VECTOR 
IIS SOFTWARE SWR SELECTED 
>YES, INSERT IT'S ADDRESS 
IBRANCH IF NO TIMEOUT TRAP OCCURS 
IRESTORE STACK AFTER TRAP 
IPOINT TO SOFTWARE SWITCH REG, 
IPOINT TO SOFTWARE OISP, REG, 
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OZHXAE.PII GET VAl'. : fOH SOFTWARE SW|TCH RtGISTEW 



449 










8 sbttl 


GET VALUE FUW SOFTWARE SWITCH 


REGISTER 


450 


UK) 1 J i ei 




3 W 4 2 






If e 




i;are 


WE RUNNING UNOER XXOP/ACT? 


as J 


p, l1 1 ^ 1 a 


OliA i 1/1 h 
a ICJ i 10 Iri V 










64« 


nBRANCH IF YES 




^ IM 4 <3 i D 




001214 






rM 


SWR,WSWKEG 


nSOFTWARE SWITCH REG SELtCTEO? 


a53 


001 324 










a c 


b5S 


nBRANCH IF NO 




« 1 f I 


1 Q Zl M £1 
J 43 M *i H 








GTSw 




HGET 




455 


0013 30 


n fVl /I (3 X 
W i« U W J 








OK 


faSS 








'aiO X 3 3 c 


1127 3 7 


IP 10 t<i «i i 


013714 
01 




MQva 


»l,$AUToa 


USET 




457 


oiOX 3'*v 








65S S 












u lu 2 <3 ** 1^ 


012737 


'A (/I Lfl M K 
/> It J w SO Iti 


000004 


55 • 




MOV »fa,4 




{RESTORE ERROR VECTOR 


459 


001346 


Ml %T OS A 
f i i 3 1 VJ J 


:< 1 204 








MOV iN'TvEC,R3 




;SET INTEWIJPT VECTOR LOCATIONS 


at? 




PI 37^ < 


^07250 








MOV »INTSERV , (R3) ♦ 








[^137^7 


iJ 3 4 y 








MOV »340, CR3) 








[AOi % Xts3 




71 1 2 3 4 


012210 






MOV »001234,KANil 




JINITIALUE CONSTANTS IN RANDOM NUMBER 




'(5 1(3 1 J ' SO 


012737 


000 765 


1 22 1 2 






MOV fl!0007b5,RAN2 






4fe4 




1 2 7 9*5 


1 7024 








MOV »PARLOG,Rb 




ISFT UP TO CLEAN ALL COUNTERS 




,51 L.1 1 il 


f?l {^^ ^ I'll 3 ^ 
10 K) J (£1 C -S 






1 S ! 




CLR CR5)+ 




?0F ERRORS, ACCESSES, AND PASSES 




^ V i H 


^2270^ 


ci ^1 1/1 Zi ZI 








CMP »PASCNTR+2,R5 


JHAVE ALL COUNTERS BEEN CLEARED 


4b7 


1 4 1 £1 


















466 


J 41 1 2 


PI 1 37 OIK 


01 7 004 




START I 




MOV »R0RETKY»R5 




JSET ALL RETRY COUNTERS TO 10 




w 10 J i 




M 1/1 Cfl (?l 1 3 
irJ 10 It' A C 




3S * 




MuV »l0,,tK5)+ 






470 




u\J3y pis; 


017 024 








CMP i»SHETRY + 2,RS 






^7 I 


PiiA 1 11 a 

%j ^ l H CO 


001373 










fctNE 3S 






4 '2 




4 L"! Zl /J (31 i?l 
i lu *♦ *4 V3 


015167 








TYPE ,MHXCS 




JTYPE OUT DEVICE REGISTER ADDRESSES 


473 


i. W I <4 J <4 










T 


WXCS,- CSP) 


nSAVE 


RXCS FOR TYPEOUT 


« 


■a vj I lO 


1 tAti lias 








TYPOS 




7;gq type— octal ascii 


4 '5 


1 4 4 2 










, 9 Y TE 


6 


nTYPE 


6 DIGITS 




iJ 1 4 4 3 


000 








.rtYTE 





nSUPPRESS LEADING ZEROS 


477 


itj X H ^ *4 


I v *• W /I ^ 


01517 7 








TYPb ,MRXOa 






f 70 






to i C A u 








WXOB , - tSPJ 


i f SAVE 


RXOB FOR TYPEOUT 






1 (71 /I /I (71 3 
i fcJ H *r C 








TV 




fiGO TYPF. — OCTAL ASCII 


480 












.BYTE 


6 


flTYPE 


6 DIGITS 


461 


S0I 457 


000 








,dY TE 





.•{SUPPRESS LEADING ZEROS 




.3! 1 a K fJS 
tJ S6 X HOI'' 


1 £4 Zi /I t3l 


015150 








TYPE ,MINTVEC 




;and vector aoohess 


463 


001464 




00 1 ^04 








INTVtC,-(SP) 


nSAVE 


INTVEC FOR TYPEOUT 


484 




i (Ad li A3 








T 

TYPOS 




nGO TYPE--OCTAL ASCII 
















3 


nTYPE 


3 QIGITCS) 


486 


SO (0 1 '» ' 5 


0^0 








' a t e 
• 





^SUPPRESS LEADING ZEROS 


487 


'''01474 




00 7 122 








JSR PCfOONECK 




JWAIT FOR DONE BIT AFTER RECAL 


488 


"TiiJi t ^ fTI fin 




000004 


1 77502 






BIT »8IT2,*RXDB 




US INIT DONE SET 


4B9 


j7l I Jl 1 ^ 31 


nii^ 1 iA(x3 










BNE IS 




lYES SKIP NEXT INSTRUCTION 


490 


v'O I J IVl 




1 5535 








TYPE ,MIN1TI 




}N0, PRINT NO INIT DONE ERROR 


49 J 




0057 7 7 


1 ITUbb 




141 




TST *RXCS 




IWAS THERE AN ERROR ON START RELAL 


492 


301520 


1 00002 










BPL TESTOR 




?IF NUT CONTINUE 


493 


C01522 


004737 


G0?55i1 








JSR HC»HOMt 




IYES.DO RECAL AGAIN 


494 


001526 


012737 


000012 


017014 


TtSTDR; 




MOV »10,,P2RETRY 




rSET THE PARITY RETRY COUNTER 


495 


P01534 


005037 


010704 








CtR UNlTStL 




»CL£AR UNIT SELECTION WORD 


496 


301540 


105777 


177444 








TbTtS ISRXD8 




;IS DRY BIT SET FOR UNIT AFTER RECAL 


497 


001544 


100033 










BPt 2S 




UF NOT SKIP NEXT INSTRUCTION 


498 


^0154fa 


052737 


0(^10200 


010704 






HIS «tJIT r,UNlTSEL 


IYES,SET UNIT READY BIT 


499 


«;01554 


032737 


140000 


001212 


2$! 




BIT »ia0000,UTESTP 


fWERE ANY DRIVES SPECIFIED 


5wa 


t'0i562 


001445 










BEO NOSEL 




;N0,SEE if UNIT I IS HEADY 


501 


301564 


E05737 


001212 








TST UTESTP 




JWAS UNIT I SELECTED 


502 


001570 


100044 










BPL UPCONU 




{NO, IT MUST BE UNIT 


503 


001572 


004737 


001bl4 








JSR PC»DRY1 




;3EE IF UNIT 1 IS READY 


504 


00157b 


P32737 


0413000 


001212 






HIT »40000,DTESTP 


JWAS UNIT SELECTED 
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GET VALUE FOR 


505 


i<j0l604 


001036 




506 


001606 


135037 


010704 


507 


001612 


000433 




508 








509 


Pvllbl4 


012777 


000033 


510 


301622 


004737 


007122 


511 


001626 


132777 


P)00002 


512 


^01634 


00141 1 




513 


001636 


004737 


00204b 


514 


0ei642 


000764 




515 


001644 


332777 


000004 


516 


001652 


0U1402 




517 


001654 


104-400 


015567 


518 


001660 


105777 


177324 


519 


001664 


100003 




520 


001666 


052737 


100000 


521 


001674 


000207 




522 








523 


001676 


004737 


001614 


524 


301702 


105737 


010704 


525 


001706 


100016 




526 








527 








528 








529 


301710 


123727 


000041 


530 


301716 


001012 




531 


001720 


005737 


000042 


532 


001724 


001404 




533 


001726 


042737 


000200 


534 


001734 


000403 




535 


001736 


104400 


014643 


536 








537 








538 


001742 


000000 




539 


001744 


000241 




5«0 


001746 


013737 


001212 


541 


001754 


042737 


177770 


542 


001762 


013737 


001212 


513 


001770 


042737 


177707 


5«« 


001776 


006037 


002140 


545 


002002 


006037 


002140 


546 


002006 


006037 


002140 


547 


002012 


013737 


001212 


548 


002020 


006137 


010420 


549 


002024 


006137 


010420 


550 


002030 


000337 


010420 


551 


002034 


042737 


177770 


552 


002042 


000137 


002722 


553 








554 


002046 


005237 


017024 


555 


002052 


104400 


015167 


556 


302056 


017746 


177124 


557 


002062 


104402 




558 


002064 


003 




559 


002065 


000 




560 


002066 


005337 


017014 



BNE UPCOND 
CLRB UNITSEL 
BR OPCUND 

MDV »R01STAT,#RXCS 
JSR PCfOONECK 
BITS »2,SRXUB 
BEO 2S 

JSR PC, STATER 
HR UHYl 

BIT »BIT2,#RXDB 
HEQ 2S 

TYPE ,MINIT2 
TSTB PHXD8 
BPL iS 

BIS #8IT15, UNITSEL 
RTS PC 



nosel: 
opcqnd: 



? YES, CONTINUE 
JNO, CLEAR UNIT 



{READ STATUS OF UNIT I 
;WAIT FOR DONE BIT 
nS PARITY ERROR uIT SET 
;nO, CONTINUE 

IYES,GO HANDLE PARITY ERROR 

JREISSUE FUNCTION 

UNIT DONE SHOULD NOT BE SET 

UNIT DONE WAS SET PRINT ERROR 
i IS UNIT 1 DRY BIT SET 
UF NOT SKIP NEXT INSTRUCTION 
lYESjSET UNIT I READY BIT 



JSR PCrDRYl 
TSTB UNITSEL 
BPL IS 

ITEST ACTll LOAD MEDIA INDICATOR 



{TEST UNIT 1 FOR DRY SET 
IIS UNIT SELECTED 
»N0 



CMPB ##41, #10 
BNE IS 
TST P#42 
BEO 2S 

BIC »200, UNITSEL 
BR IS 

TYPE, D0LOAD 



HALT 
CLC 

MOV UTtSTP,SEQUEN 

BIC #177770, SEQUEN 

MOV UTESTP, TEST 

BIC #177707, TEST 

ROR TEST 

ROR TEST 

ROR TEST 

MOV UTtSTP,PAT 

HOL PAT 

ROL PAT 

SWAB PAT 

BIC #177770, PAT 

JMP XSTART 



JDOES LOCATION 41 CONTAIN THE NUMBER 

I8RANCH IF NOT 

fCHECK FOR RXDP OPERATION 

UN CHAIN MODE, DESELECT UNIT 
lAND DO NOT HALT 

IINFORM USER TO REMOVE LOAD MEDIUM 

IFROM UNIT AND REPLACE WITH 

tk 'SCRATCH' DISKETTE IF HE 

{WISHES TO TEST UNIT 

ICLEAR C BIT FOR ROR'S THAT FOLLOW 

IPUT INITIAL CONDITIONS IN SEQUENCE 

KL^AR ALL BUT SEQUENCE 8|TS 

IPUT INITIAL CONDITIONS IN TEST 

{CLEAR ALL BUT TEST BITS 

{RIGHT JUSTIFY TEST BITS 



{PUT INITIAL CONDITIONS IN PATTERN 
{RIGHT JUSTIFY PATTERN BITS 



ICLEAR ALL BUT PATTERN BITS 



MOV 
TYPOS 
.BYTE 
,BVTE 



INC PAKLOG {INC PARITY ERROR COUNTER 

TYPE ,MRXCS {PRINT THE RXCS CONTENTS 

««RXCS,"CSP3 {{SAVE #RXC5 FOR TYPEOUT 

{ {GO TYPE — OCTAL ASCII 

3 {{TYPE 3 0IGITCS3 

{{SUPPRESS LEADING ZEROS 
DEC P2WETRY {HAVE 10 ERRORS OCCURED 
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GET v^Lue roR 




























002074 


104400 


0115017 






Type ,MpAs 


♦NOiIYrt rAHilT tWHUW 


563 


002100 


104400 


015052 






TYPE ,MCRIF 




5«34 


002104 


000207 








WTS I^C 


IRETURN 


565 


003106 


005237 


017026 






iNC HpARUOS 


IINC hard PARITY ERROH LOG 


5fe6 




104400 


015755 






TyP£ (pHUNRtC 


iBDTkJT itKiacf^nueoktii e u&bttv su ono 

frKilXI UNn C.U U V C> K A P U>- rSKilT cKKUN 


56? 




104400 


01601? 






TyPE jMPAR 




566 




104400 


015052 






Type , mchlf 




569 


0i2ia6 


104400 


015702 






TYPE 1 MHAuT4 




5T0 


002132 


000000 






HLT4 1 


HALT 


IHALT BECAUSE OF HARD PARITY ERROR 


571 


303134 


000137 


001220 






JMP 8A200 


/IF CONTINUE I S PRESSED GO TO START 


57a 

573 
574 




000000 






TEST 1 






003142 


005002 






lSll,IniT5I 


CLP H 2 


IMESoAliE rLAb 


5TS 


003144 


005737 


001200 






TST UD 


ITEST FOR NO SELECTION OF TRACKS 


576 


002150 


001441 








BEQ IS 


M T WILL HF ST ANOARU LIMITS 


577 


90a|52 


123727 


0W120I 


000 114 






JTEOT ruR MAXInUn 10 LI"IT 


S7a 


@0ai60 


101112 








1 1 4S 




§79 


00ai6g 


001431 








BEQ 2S 




590 


002164 


12373? 


001200 




35 


CMPS OU 1 X P 


luu "UST DC tyuAL UK uiisa than lu 


sai 


00ai7a 


101105 








BH I 1 4S 




58S 


003174 


004737 


002432 






JSP PC#T3TMSG 


IHAS INITIAL MESSAGE BEEN TYPED 


583 


003200 


104400 


015510 






TyPt jHOO 


/Type both io and 00 limits 


584 


002204 


113737 


001200 


0022 1 6 




MOVB OU f 7S 




585 


002212 


004537 


014446 








# 1 "rt oXNuLC Utwil^aL "UKu 


566 


002216 


000000 








OPEN 




58? 


302220 


104400 


015047 






TYPE jUBUSP 




588 


002224 


104400 


015514 






TYPE ^ HID 




569 


002230 


113737 


001201 


VjV) C C ** IZ 




HOVB IU»10S 




590 


002236 


004537 


014446 






JSR R5|S6LDEC 






002242 


000000 






1 0s 1 


OPE'*l 




5^2 


032244 


000403 








HR 1 S 




5^3 


002246 


105737 


Ki0l2W» 






TSTtt OU 


US OD s kJ 


59a 


002252 


001344 








H N E S$ 


JN0,G0 PRINT IT 


595 


302254 


005737 


001202 




IS! 


TST 1^ IWST 


iTEoT rgK NO SCLEwTlUN Ur OtClUHS 


596 


S02260 


001451 








BCQ US 


111 Will Wt aTANOAHU LIMITS 


597 


002262 


123727 


001203 


000032 




CMPd LASr,»32 


llfcOl rUH NUKriAL LAOl OtLTU" Li"Il 


598 


002270 


I010S3 








BHI 155 




599 


302272 


001440 












600 


002274 


105737 


001202 






ToTorlWST 


" T u P U C T Q Kl f1 M G C f T n t? 


601 


002300 


001447 








BEQ 1 5S 




602 


002302 


12373T 


001202 


am\ sax 




Urlro riKai lUASI 


IrlKai nuai ot ciUUAL lU UK Lcaa 


603 
te04 


002310 
002312 


101043 
00473? 


002432 






twtj y T (1 T M o r* 


tTUAKI 1 ACT 


605 


302316 


104400 


015047 






1 T r t f Uou a'^ 




606 


002322 


|04X}00 


015520 






TYPE 1 MFIH5T 


t f WP Hf\TH CTUQT &Kjn 1 A«T 1 TMTTC 

,iTrc DUin ririai ainu LAOI Liniig 


6lf7 
606 


002326 
002334 


U3737 

004537 


001202 
014446 


002340 




MOVd FIRST, US 
JSR H5,SGUUEC 




6feJ9 


002340 


000000 






US! 


OPEN 




610 


002342 


1044^0 


015047 






TYPE ,QBUSP 




6U 


002346 


104^00 


PiiSSa? 






TYPE ,MUAST 




6ia 


002352 


1UT37 


0012H3 


002364 




MOVB LAST, 12S 




6i3 


002360 


004537 


fll4««6 






JSR K5, SGLUEC 




6U 


002364 


000000 






lasi 


OPEN 




615 


00?36te 


104400 


01524^ 






TYPE ,UBLLF 




616 


002372 


000404 








8R 13S 
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OZRSCAE, 


Pll 


GET VALUF. FOR SOFTWARE 


SWITCH REGISTER 






617 


002374 


123727 


001202 


000001 


4SS 


CMPb FIRST, «i 


us FIRST SET TO 1 


618 


002402 


001334 








BNE 5S 


INO, GO PRINT IT 


619 


002404 


000307 






13S! 


NTS PC 




620 
















621 


002406 


104400 


016363 




14SI 


TYPE ,ODaBIG 


IPRINT TRACK LIMITS OUT OF RANGE 


622 


002412 


005id37 


001200 






CLR 00 




623 


002416 


000716 








BR IS 




624 


002420 


104400 


016455 




15S! 


TYPE ,32916 


/PRINT SECTOR LIMITS OUT OF RANGE 


625 


002424 


005037 


001202 






CLR FIRST 




626 


002430 


000765 








BR US 




627 
















623 


002432 


005T02 






TSTMSGI 


TST N2 


/TEST MESSAGE FLAG 


629 


002434 


001005 








HNE IS 




630 


002436 


104400 


01544b 






TYPE ,MNONSTU 


/MESSAGE HEADING HAU NOT BEEN TYPED 


631 


002442 


104400 


015052 






TYPE ,MCRLF 




632 


002446 


005202 








INC K2 


/SET THE MESSAGE FLAG 


633 


002450 


000207 






1st 


RTS PC 




634 
















635 


002452 


104400 


0150S2 




ICONOI 


TYPE ,MCRLF 




636 


002456 


104400 


015417 






TYPE ,MIC0N 


/TYPE INITIAL CONDITIONS 


637 


002462 


10573? 


010704 






TST8 UNITSEL 


/TEST FOR DRIVE SELECTION 


633 


002466 


100002 








BPL IS 




639 


002470 


104400 


015106 






TYPE ,MUNIT0 


/TYPE UNIT SELECTED 


640 


002474 


005737 


010704 




1S> 


TST UNITSEL 




64i 


002500 


100002 








8PL as 




642 


002502 


104400 


015116 






TYPE ,MUNITI 


/TYPE UNIT I SELECTED 


643 


002506 


104400 


015040 




2S! 


TYPE ,TAS 




644 


002512 


004737 


010012 






JSR PCTYPSEL 


/TYPE TEST SELECTIONS 


64S 


Biasu 


134400 


015052 






TYPE ,MCRLF 




646 


00a5aa 


005737 


010704 






TST UNITSEL 


/WERE ANY DRIVES READY 


64? 


00aS26 


001005 








BNE C0NT12 


/yes, CONTINUE 


648 


002530 


104400 


015016 






TYPE ,MNOORY 


/NO, TYPE NO DRIVES MESSAGE 


649 


003534 


000000 






HLTS! 


HALT 


/NO DRIVES CAN'T CONTINUE 


650 


003536 


00013? 


001220 






JMP sAa00 


/IF CONTINUE IS PRESSED RESTART 


6Si 


003542 


00473? 


002142 




C0NT12J 


JSR PCTSTLIMITS 


/TYPE NONSTANDARD TRK AND SEC LIMITS 


652 


002546 


00020? 








RTS PC 




633 
















634 


003530 


104405 






HOMEI 


CKS«tiR 




655 


002553 


03377? 


000400 


176434 




BIT #SN8,$3MR 


/TEST THE NO RECAL SWITCH 


656 


002560 


001046 








BNE HTN 


/RETURN IF THE SWITCH IS SET 


65? 


003562 


012737 


000012 


017014 




MOV »lk3,,PaRETRY 


/SET UP THE PARITY RETRY COUNTER 


658 


002570 


012737 


000013 


017010 




MOV #10a»UDReTRY 


/USE THE OD RETRY COUNTER FOR RECAL RETRIES 


639 


0iaS?6 


012??? 


040001 


176402 


asi 


MOV »RECAL»*RXCS 


/ISSUE RECAL FUNCTION 


660 


003604 


00473? 


087132 






JSR PCDQNECK 


/WAIT FOR DONE FLAG 


66 1 


002610 


03277? 


000003 


176372 




BIT »3,#RXDa 


/WAS THERE A PARITY ERROR 


66a 


033616 


001403 








BEQ IS 


/NO, CHECK FOR ANY OTHER ERROR 


663 


§03630 


004737 


003046 






JSR PC, STATER 


/YES, GO REPORT IT 


664 


003624 


000764 








BR as 


/RETRY RECAL 


665 


002636 


003777 


176354 




Ui 


TST PRXC8 


/IS THE ERROR FLAG SET 


666 


003632 


100016 








BPL XHOME 


/IF NOT RETURN 


667 


i03&34 


00473? 


010300 






JSR PCRDCQDE 


/YES, PRINT STATUS REGISTERS 


6^3 


00364® 


12372? 


010072 


000040 




CMPS 8STAT,#40 


/IS THE B CODE LESS THAN COOE 40 


669 














/CHECAL COOES ARE 10,20, AND 30) 


670 


003646 


002010 








BCE XHOME 


/IF NOT RETURN 


67| 


0036Si 


00533? 


0l?0Ji 






DEC UORETRY 


/HAVE 10 ERRORS OCCURfcD 


67a 


i026S4 


001350 








8Ng as 


/NO, RETRY 



OZRXAE.PIl GtT V&LUE F0« SOFTWARE SWITCH REGISTER 



673 
6Ti} 

b76 
677 
678 
679 



303656 104400 

00266a 000000 

00266a 030137 

002670 012737 

002676 0002657 



0,dl220 



HtT3l 



0U362 XHOHtS 
HTNS 



TVPt ,MHALT3 

JmP SA«i00 

MDV #1 ,PRt5THK 

RTS PC 



IYESa'.AN'T CUNTINUE Ais RXU WILL NOT REC&L 

IIF CONT, SWITCH IS PHESSEO GO TO START 

IRESET THfc. PRESENT TRACK TO TRACK 1 
IRETURN 



}|*aSS*i»!Sl!fft<!f*»tS!!Su!t«f*«* 



4 ****** ft * 



681 
682 
683 
684 
665 
686 
687 
686 
689 
690 
691 
692 
693 
69« 
695 
696 
697 
698 
699 
700 
701 
702 
703 
70^1 
705 
706 
707 
708 
709 
710 
711 
712 
713 

7ia 

715 
716 
717 
718 
719 
720 
721 
722 
723 
Tin 
725 
726 
727 
728 



JOECOUE TEST HITS OF INITIAL CONDITIONS 
BITS i,a, AnO b OF THE INITIAL SWR SELECTED THE TEST WHICH 



302700 
0*J270il 
002710 

0027ia 

002716 
002722 
002726 
002732 
Ok527a3 
0027<I6 
302752 
002756 
002764 
at'2770 
002772 
003000 
00300a 
003006 
003010 
203014 
303016 
i503022 
003026 
303032 
003036 
0030«2 
0030<»6 



012706 
012746 
012746 
000002 
01^5237 
004737 
005037 
012737 
012757 
005037 
005037 
142737 
005737 

001003 

012737 
013704 
005304 
006304 
150437 
000777 
0001 37 
000137 
000137 
000137 
000137 
0ki0i37 
000137 



001200 
000J4ta 
002716 

021 ^^40 
002452 
011142 
0(00012 

000KJ12 

P 04 124 
004122 
000377 
002140 

0W0007 
002140 



005014 

O0J052 
004130 
005456 
006444 
006504 
006544 
0^6630 



ISS 

XSI ARTS 

testsel: 



IS 


TO bE PREFORMED, 


THEV ARE AS FOLLOWS! 




BITS 


TESTS 


5 


4 i 










NO TEST SELECTED (DEFAULT TO TEST 7) 





1 


WRITE ONLY 





i 


WRITE FOLLOWED BY READ 





1 1 


WRITE FOLLOWED BY READ AND VERIFY 


1 





HEAD AND VERIFY ONLY 


1 


I 


READ ONLY (CRC CHECK) 


1 


1 


READ AND VERIFY DELETED DATA 


I 


1 1 


WRITE FOLLOWED BY READ FOLLOWfcU rtY ANOTHER 






READ AND VERIFY 


* A* 







017004 
017006 



liuv «srACK,sp 

MOV »HR7,-(SPJ 

MOV »l»,«tSPJ 
RTI 

INC RhSTCNTR 
J8R PC, ICOND 
CL» CHARCr 
MOV »10, ,RORETRY 

MUV fl0.,WTRETRY 

CLR ERWRT 

CLR RUAFTwT 

8ICB »377,P#BR0NTEST 

TST TEST 

BNE IS 

MUV »7,TEST 

MOV TEST,R4 

DEC R4 

ASL H4 

BIStt R4, #»BRONTEST 

BR , 

JMP WRTONLY 
JMP WRTRD 
JMP WTRDCK 
JHP KUUHK 
JMP KDUNLY 
JMP DRVSWP 
JMP TEST7 



;RESET the STACK POINTER 
; AND INTERUPT LEVEL 



liNC RESTART COUNTER 

f TYPE OUT INITIAL CONDITIONS 

;CL£AR EOP CHARACTER COUNTER 

;SET UP READ AND WRITE RETRY COUNTERS 

JCLtAR WRITE CAUS6.0 BY ERROR FLAG 

ICL6AR READ AFTER WRITE FLAG 

JCLEAR OUT BRANCH OFFSET 

JIF NO TEST SPECIFIED FORCE TEST 7 



; ADJUST TEST BITS FOR CURRECT 
J8RANCH OFFSET 

IINSERT OFFSET TO BRANCH INST, 

JORANCH BY TEST OFFSET 

J WRITE ONLY FUNCTION 

iwRITE THEN READ FUNCTION 

JWRITE THEN READ VERIFY 

IREAD VERIFY 

IREAD ONLY FUNCTION 

;wRiTE,ANU READ VERIFY UN ALTERNATING DRIVES 
;WR1TE, READ, FOLLOWED BY READ VERIFY 
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OZRXAE, 


Pll 


GET VALUE FOR 


729 








730 








731 








732 








733 








734 








735 








736 


^03052 


004737 


010312 


737 


003056 


004737 


01U44 


738 


003062 


004737 


010bl4 


739 


003066 


004737 


011254 


740 


003072 


004737 


003112 


741 


003076 


005337 


01135b 


742 


003102 


001371 




743 


003104 


004737 


010732 


744 


003110 


00076.2 




745 








746 


003U2 


004737 


012216 


747 


003116 


004737 


012316 


746 


003122 


012737 


000012 


749 


003130 


012737 


000012 


7^0 


003136 


004737 


005656 


751 


003142 


012746 


003372 


752 


003146 


012746 


003214 


753 


003152 


005037 


006434 


754 


003156 


012746 


000200 


755 


303162 


012746 


003170 


756 


003166 


000002 




757 


003170 


012777 


000101 


75S 


003176 


004737 


007014 


759 


003202 


112077 


176002 


760 


003206 


005237 


006434 


761 


003212 


000771 




762 








763 


003214 


005726 




764 


003216 


012737 


015366 


765 


003224 


012737 


015366 


766 


003232 


012737 


003136 


767 


003240 


000137 


003244 


768 








769 








770 


003244 


005237 


017024 


77| 


003250 


104405 




772 


003252 


032777 


020000 


773 


003260 


001006 




774 


003262 


104400 


000000 


775 


003266 


104400 


016017 


776 


003272 


104400 


015052 


777 


003276 


104405 




778 


003300 


005777 


175710 


779 


003304 


100001 




780 


003306 


000000 




781 


003310 


032777 


004000 


782 


e03316 


001037 




783 


003320 


005337 


017016 


784 


003324 


005737 


@i7@i6 



ITHIS IS A WHITE ONLY FUNCTION USING DATA PATTERN AND 
/TRACK SEQUENCE SPECIFIED BY INITIAL SWR SETTINGS 



017022 
017016 



WRTONLY: 
XwRTONLY ! 



WRITEI 
XWRITEl 



ONEWRTI 
FILLBUFI 



F2LLFLAGI 

xfrbyte: 



003264 
003354 
003334 



HLT6! 
C0NT13I 



JSR pcgetpattern 
JSR PC» inittracks 

JSR PCGETUNIT 
JSR PCGETTRACK 
JSR PC, WRITE 
DEC TRKCNTR 
BNE IS 
JSR PC, STOP 
BR XWRTONLY 

JSR PCi INITSECTOR 

JSR PCGETSECTOR 

MUV »10,,SRETRY 

MUV #10,,PRETRY 

JSR PCADJSUM 

MOV »FILLDONE,-(SP) 

MOV 9FlLLtR,-CSP) 

CLR BYTECNTR 

MOV «(PR4,-CSP) 

MOV !»1S,«CSP) 

«TI 

MOV »FBie,«»RXCS 
JSR PCTRCK 
MOVd IK03+,SIRXDB 
INC HYTECNTR 
BR FILLFLAG 

TST ISP)-*- 
MOV »MFIL»PTYPl+2 
MOV »MFIL#PTYP2+2 
MOV aiFILLBUF,PC0NT + 2 
JMP PANTEST 



INC PAKLOG 
CKSWK 

BIT 9SW13,@SWR 
BNE C0NT4 
TYPE ,UPEN 
TYPE ,MPAR 
TYPE ,MCRLF 
CKSWR 
TST »SWR 
8PL C0NT13 
MALT 

BIT S!SWll,#SWR 
BNE CONTS 
DEC PRETRY 
TST PRtTRY 



JSET UP SOFTWARE DATA BUFFER 
?SET UP 10,00, AND TRACK COUNTER 
;SET UP DRIVE UNIT SELECTION 
f PICK UP NEXT TRACK 
JDO THE WRITE FUNCTION 
/TEST TRACK COUNTER 

ICHECK FOR LAST DRIVE AND EOP 
/NEXT PASS 

/SET UP FIRST, LAST, AND SECTOR COUNTER 
/PICK UP NEXT SECTOR 

/SET RETRY COUNTER 

/ADJUST DATA BUFFER AND CHECK SUM FOR ADDRESSES 
/PUT GOOD RETURNON STACK 
/PUT ERROR RETURN ON STACK 



/EXICUTE FILLBUFER COMMAND 
/TEST FOR TRANSFER REQUEST FLAG 
/TRANSFER DATA BYTE 

/WAIT FOR NEXT TR FLAG 

/REMOVE THE DONE RETURN FROM THE STACK 
/PUT ADDR OF FILL8UF MESSAGE IN PAR ERR TYPOUT I 
/PUT AOOR OF FILLBUF MESSAGE IN PAR ERR TYPOUT 2 
/IF NOT HARD ERR RETURN THROUGH PCONT TO FILLBUF 
/PRINT OUT PAR ERR AND TEST CONDITIONS FOR RETRY 



/INCREMENT PARITY ERROR 

/TEST DON'T PRINT ERROR SWITCH 

/PRINT THE PARITY ERROR MESSAGE 

/TEST MALT ON ERROR SWITCH 

/HALT ON ERROR 
/TEST NO RETRY SWITCH 
/IF SET LOG HARD ERROR 
/DECREMENT RETRY COUNTER 
/HAVE 10 ERRORS OCCURbO 



J«0ZR3(A«E MACYU 37 (7323 20-SEP-76 iSMb P&yt ife 

OZRXAE.PU GET VAUUE FOR SOfl^kRl SWITCH REliiSTEW 





f?. fli T 1 IE 01 


fn(% i yt m J3 






Iftt 




0<1V3 \ 3 1 


10 IP J 1 <3 




7"7 


003336 


005237 


1 702b 




7^8 


003342 


1 04400 


f)l 4 a Zl IJI 




7^9 


P03346 


4 lA /I /I e% Ilk 


015755 




790 


003352 


104400 


000000 




791 


003356 


104400 


01601 1 




792 


003362 


1 04400 


1 5052 




793 


003366 


0001 37 


100 74 




79a 










795 










796 










797 










798 










799 










800 


003372 


012737 


0000 1 2 


(71 4 7 lA 4 ilk 


801 


003400 


0127 46 


003462 




802 


003404 


012746 


00351 




803 


003410 


1 127 37 




004 1 20 




0034 1 6 




001 000 


I CI c 


fl ? 


1^1 ft 1 /I 3/1 


00 1403 








003426 


112737 




it'lC'* i CIti 


807 


003434 


0627 37 


00000 1 




806 


003442 


005537 


021032 




609 


003446 


004737 


004022 




810 


003452 


0047 37 


007 122 




61 i 


203456 


300 137 


00 7 204 




812 










813 


003462 


0057 37 


So 4 1 2 4 




614 


003466 


001004 






815 


3 4 7 


005337 






616 


003474 


001003 






817 


003476 


000207 






818 


003500 


0001 37 


004246 




819 




000 137 


0031 1 




620 










821 


003510 


005726 






822 


00351 2 


0327 37 


0530002 


a i lA t'A 7 rA 


823 


003520 


001413 






824 










825 


203522 


0127 37 


1 61^ 1 


003264 


826 


003530 


012737 


1 6 1 




827 


£03536 


012737 


0034 00 


003334 




^ 1 /I /i 


010 v3 13' 


003244 




629 










830 










831 


003550 


012737 


0k)3l30 


003b7a 


832 










833 










634 










835 










836 


t'03556 


012737 


016010 


003630 


837 


003564 


^12737 


016010 


003722 


838 


003572 


004737 


003576 




839 










840 


003576 


012703 


017036 





PCONTI 
CQNT51 



8EQ C0NT5 
JHP FRLBUF 
INC HPARLOG 
TYPE ,UBUL.F 
fMUNREC 
1 UPEN 
,HPAH 
TYPE ,MCRLP 
JMP UELUNIT 



TYPE 
TYPt 
TYPE 



HF CLEARED LOG HaHQ tHROR 

JRETURN TO RETRY TEST THROUGH HtRE 

JINCHARO PARITY ERROR CDUNTEH 

ITYPE HARD PARITY ERROR 



IGO DELETE THt UNIT, CAN NOT CONTINUE 



;SWITCH 9 OF INITIAL TEST CONDITIONS SWITCH SETTINGS IS THg DELETED DATA 
JFUNCTION INUICATOR, WHEN THIS BIT IS SET ALL WRITE / READ FUNCTIONS wiLL 
;5ET AND CHECK THt DELETED DATA BIT ON THt DISKETTE, 



FILLDONE! MOV »10,,PRETRY 

REWRITE: MOV »wRTOONe,-CSP) 

MOV »WHTERr-CSP) 
MOVti OWRTIE, FUNCTION 
ttIT «BIT9,UTtSTP 
B£Q 1$ 

MOVtt #WT0UIE»FUNCTI0N 



fSET UP RETRY COUNTER 
ISET GOOD RETURN ON STACK 
ISET ERROR RETURN ON STACK 
;SET FUNCTION WORD TO WRITE 
;TEST for WRITE DELETED DATA 



lit 

2s: 



ADO 


»1,WTCNTH 


lINC TOTAL WRITE FUNCTIONS COUNTER 


ADC 


WTCNTR1-2 


JOOUBLE PRECISION COUNTER 


JSR 


PCf COMMWORO 


ITRANSFER COMMAND TO DRIVE 


JSR 


HCDONECK 


JTEST FOR DONE FLAG 


JMP 


NOINTfeH 


fNO INTERUPT ERROR 


TST 


fcRWRT 


nS THIS A RE.MRITE FROM A DATA ERROR 


BNE 


IS 


lYES GO REREAD THIS SECTOR 


DtC 


SECCNTM 


;no,test sector counter 


HNE 


2S 


;not last sector go to next one 


RTS 


PC 




JMP 


REREAD 


/REREAD THE SECTOR 


JMP 


XwRI TE 




TST 


ISP)* 


IREMOVE THE DONE RETURN FROM THE STACK 


BIT 


»B1T1»ASTAT 


JIS THIS A PARITY ERROR 


BEQ 


WRTSEK 


JNO, IT MUST BE A SEEK ERROR 


fPARITY EWRUK DURING A WRITE 


FUNCTION 


MOV 


#MwRITE,PTYPl+2 


fPUT aDuR of WRITE MESSAGE IN PAR ER TYFOUT 1 


MOV 


»MWRITE,PTYP2+2 


JPUT AUDR OF WRITE MESSAGE IN PaR ER TYPOUT 2 


MOV 


»RtwRITE»PC0NTf2 


J IF NOT HARD ERR RETURN THROUGH PCQNT TO REWRITE 


JMP 


PARTEST 


;G0 InC LOG AND TEST FOR RETRY 


fSEEK ERRUR 


DURING A WRITE FUNCTION 


MOV 


«0NEWRT,SEKRTY+2 


;SETUP FOR WRT RETRY ON SEEK ERROR 



»MWRITE,STYPl+2 
»MiNRITt,STYP2-t'2 



MOV 
MOV 

JSR PC, SEEKER 



MOV »Zi>EKLDGfR3 



f (AFTER A RECAL. IHE COinTENTS OF SECTOR I, 
ITRACK I ARE LOADED INTO THE SECTOR BUFFER. 
ITO REWRITE THE CORRECT DATA THE PROGRAM 
JMUST REFILL THE SECTOR BUFFER, 

JPUT ADUR OF WRITE MESSAGE IN SEEK ER TYPEOuT I 
;PUT ADUR OF WRITE MESSAGE IN SEEK ER TYPEOuT 2 
IRECORD SEEK ERROR 

JSETUP INC INSTRUCTION FOR UNIT LOG 
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OZRXAE, 


,pn 


GET VALUE FOP ! 


SOFTWARE 


SWITCH REGISTER 






841 


003602 


004737 


021044 






JSR PCUILOG 


HEST FOR UNIT 1 LOG 


842 


003606 


005213 








INC IR3) 


{INCREMENT SEEK ERROR LOG 


843 


003610 


004737 


("03770 






JSR PCiTRKERK 


JINC ERROR PER TRACK COUNTERS 


844 


003614 


104405 








CKSWR 




845 


003616 


032777 


020000 


175370 




BIT »SW13,PSWR 


JCHECK DON'T PRINT ERROR SWITCH 


646 


023624 


001004 








BNE bkNMETl 




847 


303626 


104400 


0I60I0 




STYPl ! 


TYPt (MImRITE 


;PRINT WRITE (READ) SEEK ERROR 


648 


003632 


004737 


003736 






JSR PC»SEKTYP 




849 


003636 


104405 






SWH^Tl S 


CKSWR 




850 


003640 


005777 


175350 






TST PSWR 


;TEST THE HALT ON ERROR SinITCM 


851 


S03644 


100001 








BPL CONTia 




852 


003646 


000000 






HLT7: 


HALT 


JHALT ON THE ERROR 


853 


003650 


032777 


004000 


175336 


coNTia: 


BIT l»5Wll,i?SWR 


ICHECk the NO RETRY SWITCH 


654 


003656 


001007 








BNE HARpSK 


JIF SET LOG HARD SEEK ERROR 


855 


003660 


005337 


017022 






DEC SRtTRY 


?HAVE 10 ERRORS BEEN LOGED 


856 


003664 


001404 








BEQ MARD5K 


JYES LOG HARD ERROR 


857 


003666 


004737 


002550 






JSR PC, HOME 


IRECALI8PATE DRIVES ON SEEK ERROR 


858 


003672 


000137 


003130 




5EKRTY! 


JMP UNtWRT 


;N0, RETRY WRITE COMMAND £H£AD COMANU) 


859 


003676 


012703 


017076 




HAROSK 1 


MOV SZHSEKL0G,R3 


JSET INC, INST, FOR UNIT B ERR LOG 


860 


003702 


004737 


021044 






JSR PCiUlLOG 


JTEST FOR UNIT 1 ERROR LOG 


661 


003706 


005213 








INC CR3) 


fHARO SEEK ERROR 


862 


003710 


104400 


015240 






TYPE jUBLLF 




863 


003714 


104400 


015755 






TYPE ,MUNRtC 


?TYPE UNRECOVERABLE SEEK ERROR 


664 


003720 


104400 


016010 




STYP2: 


TYPE ,MWRITE 


;0N WRITE (READ) COMMAND 


865 


003724 


004737 


003736 






JSR PCiSEKTYP 




666 


003730 


062706 


000002 






ADD »2»SP 


IREMOVE SEEK ERROR FROM STACK POINTER 


867 


003734 


000207 








RTS PC 


JRETURN TO NEXT SECTOR ti'i DONE RETURN ON 


668 
669 


003736 


104400 


015775 




SEKTYP: 


TYPE ,MSEEK 


JTYPE SEEK ERROR 


670 


003742 


104400 


014567 






TYPE ,MPRtS 


ITYPE ADDRESS OF TRACK MOVED FROM 


871 


003746 


013737 


011362 


003760 




MOV PRtSTRK,l$ 




672 


003754 


004537 


014446 






JSR R5,SGLDEC 




873 


003760 


000000 






1$: 


OPEN 




874 


003762 


104400 


015052 






TYPE ,MCRLF 




875 
676 


003766 


000207 








RTS PC 




87T 


003770 


013705 


011360 




TRKERRI 


MOV TARGET, R5 


JSET UP TO INC ERROR PER TRACK COUNTER 


878 


003774 


006305 








&3L R5 


lADJUST FOR EVEN ADDRESS 


679 


003776 


062705 


020344 






ADD #U0TRK,R5 


lAODIN ADDERSS OF UNIT LOG 


860 


004002 


032737 


000020 


010704 




BIT »8IT4,UNITSEL 


ICHECK THt UNIT SELECTION BIT 


661 


004010 


001402 








8E0 IS 


HP Cleared unit is active 


662 


004012 


062705 


020576 






ADD »U1TRK,R5 


MDJUST FOR UNIT I LOG 


883 


004016 


005215 






is: 


INC (R5) 


lINC THE CORRECT COUNTER 


664 
865 


004020 


000207 








RTS PC 




686 


004022 


013705 


011360 




COMMWORDl 


MOV TARGET, R5 


fGET TRACK NUMBER 


887 


004026 


006305 








ASL R5 


^MULTIPLY BY 4 TO DOUBLE PRECISION 


888 


004030 


006305 








ASL R5 


; INTERLEAVE COUNTER LOCATIONS 


889 


004032 


062705 


017174 






ADO »TKACC,R5 


lAOO ON ADDRESS OF TRACK ACCESS COUNTER 


890 


004036 


062715 


000001 






ADO »1, (R5) 


1 INCREMENT THE COUNTER 


891 


004042 


005565 


000002 






ADC 2(R5) 


MOD CARRY TO HIGH ORDER WORD 


892 


004046 


153737 


010704 


004120 




Bise UNITSEL»FUNCTION 


»SET UNIT SELECTION BIT IN COMMAND WORD 


893 


004054 


013777 


004120 


175124 




MOV f UNCTION, #RXCS 


ISEND OUT COMMAND TO DRIVE 


894 


004062 


004737 


007014 






JSR PCTRCK 


IWAIT FOR TR FLAG 


895 


004066 


U3777 


012310 


175114 




MOVB TSECTOR, PRXOB 


ISENO OUT TARGET SECTOR 


896 


004074 


004737 


007014 






JSR PCTRCK 


IWAIT FOR TR FLAG 



MAlNDEC-1 l-DZRXA-t MACYll £7(732) ^M-SEP-76 iSlUb PAbt 18 

OZRxAE.Pli GtT VALUE FOR SOFTWAI?E SWITCH REGISTER 



897 
898 
899 
900 
901 

9aa 

903 
90<J 
905 
9i<36 
907 
908 
909 
910 
9U 
912 
913 
9ia 
915 
916 
917 
918 
919 
920 
921 
922 
923 
92a 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
9«0 
941 
942 
943 
944 
945 
946 
947 
946 
949 
950 
951 
952 



?04i00 
E04106 
004110 
004U4 
0041! 6 

004120 
004122 
004124 
004126 



U3777 

305046 
0127 46 
0001302 
000207 



011360 175102 



is: 

FuNCTlUNt 

kdaftwt: 

ERWRTS 
dataCk I 



Move TARGET, ^HXOli 
CUR -C5P3 
MOV «lS,-tSP) 
RTI 

RTS PC 





jseno out target teack 

;lower intekupt level to allow an interupt 



fREAD AFTER WRITE FUNCTION FLAG 
IWRITE CAUSED BY DATA ERROR FLAG 
JOATA CHECK ON CRC EHHOR FLAG 



ITHIS IS A WHITE ALL SECTORS FOLLOWED BY A READ ALL SECTORS 
IwITH UATA PATTERNS AND HEAD SEUUENCING SET BY INITIAL SWR 
J T 8 a 



00»» 1 30 


005 137 


004 122 




WRTRO I 


COM 


KDAFTWT 


JSET READ AFTER WHITE FLAG 




C 4 1 3 4 


0047 37 


010 312 






J3R 


HCGETPATTERN 








t)lt"» 13 1 


Mil 144 




X WW trd • 


JSR 


PC, INITTWACKS 






iC (3 4 1 •» 4 


f%iA Hit 1 ^ 

wio47 57 


mi I3I k 1 il 

'0 \ <0O I t 






JSR 


PCGETUNIT 






004150 


004737 


Pll 1254 






JSP 


PCGETTRACK 






004154 


004737 


0031 12 






JSR 


PC, WRITE 






304160 


004737 


b042B0 






JSR 


PC, READ 






0C4164 


005337 


01 1356 






DEC 


THKCNTH 






4 1 7 


301367 








BNE 


IS 






004 1 7 2 




010 7 32 






JSR 


PC, STOP 






004176 


000760 








8H 


HWRTRD 
































JREAO DATA 1 


pkOM THE OISKtTTE 






004200 


004737 


01221b 




head: 


JSR 


PC, INITSECTQR 






004204 


004737 


« 1231b 




xwfcAD: 


JSR 


PCGETSECTOk 






004210 


012737 


000012 


01 7k!l0 




MOV 


»10, ,DDRETRY 


;SET UP RETRY COUNTERS FOR 


deleteu data 


D04216 


012737 


000012 


017012 




MOV 


»10, ,OATAKETRY 


lOATA ERROR 




£04224 


312737 


001^012 


017016 




MUV 


«»10, ,prethy 


IPAWITY 




004232 


012737 


p;000l2 


017022 




MOV 


»10. ,SRETRY 


>SEEK 




P04240 


312737 


0W0012 


01 7020 




MOV 


»10, ,CR£TRY 


lANU CRC ERRORS 




004246 


005037 


004126 




KfcHt AO! 


clr 


UATACK 


fCLEAR CRC DATA CHECK FLAG 




004252 


012746 


004316 






MQV 


»KUDQNE,-tSP) 


;SET GOOD RETURN UN STACK 




P04256 


.112746 


004460 






MOV 


»kUERR,-tSP) 


JSET READ ERROR RETURN ON 


STACK 


004262 


112737 


000107 


004120 




MfjVtj SHDIt iFUNCTION 






364270 


?62737 


000001 


021034 




ADD 


»1,RDCNTK 


IINC TOTAL READ FUNCTIONS 


COUNTER 


004276 


005537 


02103b 






ADC 


PDCNTR+2 


JDOUBLE PRECISION COUNTER 




0^4302 


004737 


004W22 






JSR 


PCCOMMWORO 






004336 


004737 


007122 






JSR 


HCOONECK 


;TEST FUR DONE 




01'4312 


0001 37 


007204 






JMP 


NOINTEH 


JNO INTERuPT ON OQNt 




004316 


022737 


00e''v5l2 


01 7004 


RODONE! 


CMP 


»10, ,ROReTRY 


ns READ kETRY EOUAL to 10 




004324 


0tol420 








BtQ 


CONTl 


JYES,NO ERRORS OCCUREU 




004326 


W12703 


01 7va52 






MOV 


«ZK0L0G,H3 


JSE! INC, INST. FOR UNIT 


ERROR LOG 



MAlNUEC-1 1-DZRXA-E 



MACYll 27 (732) 2«5-6EP«"7b 15:46 PAGt 19 



DZRXAE.Pl 1 


GET VALUE FOR ! 


SOFTWARE 


953 


004332 


004737 


021 '^4 4 




954 


£34336 


025213 






955 


004340 


012737 


0k300l2 


017004 


956 


004346 


104400 


015241? 




957 


004352 


104400 


01562/ 




958 


204356 


1044?0 


015674 




959 


304362 


U4400 


015052 




960 


004366 


022737 


000012 


01700b 


961 


004374 


001420 






962 


004376 


012703 


01 7k35b 




963 


004402 


004737 


C.21044 




964 


004406 


0^5213 






965 


004410 


012737 


000012 


017006 


966 


004416 


1044^0 


015240 




967 


004422 


104400 


015627 




968 


004426 


104400 


016010 




969 


£04432 


104400 


015052 




970 


004436 


004737 


005204 




971 


0k34442 


005701 






972 


004444 


100001 






973 


004446 


000207 






974 


004450 


005337 


012306 




975 


004454 


5)01253 






976 


004456 


000207 






977 










978 


004460 


005726 






979 


004462 


032737 


000002 


010070 


960 


004470 


001413 






981 










982 


004472 


012737 


015674 


003264 


983 


004500 


012737 


015674 


003354 


984 


004506 


012737 


004246 


003334 


985 


004514 


000137 


003244 




986 


004520 


032737 


000001 


010070 


987 


004526 


001014 






988 










989 


004530 


012737 


00424b 


003674 


990 


004536 


012737 


015674 


003630 


991 


004544 


012737 


015674 


003722 


992 


0P'4552 


004737 


003576 




993 


004556 


000734 






994 










995 


004560 


004737 


003770 




996 


004564 


005701 






997 


004566 


100061 






996 


004570 


005237 


00412b 




999 


004574 


004737 


00S536 




1000 


004600 


005737 


006442 




1001 


004604 


001052 






1002 


004606 


012703 


017046 




1003 


004612 


004737 


021044 




1004 


004616 


005213 






1005 


004620 


104405 






1006 


004622 


032777 


020000 


174364 


1007 


004630 


001004 






1008 


004632 


104400 


015644 





JSR PCUILOG 
INC CR3) 

^^OV »10,,HORETRY 
TYPt ,uaLLF 
TYPfc jMREC 
TYPE ,MREAO 
TYPE ,MCRLF 
CMP »10, , i^TRETRY 
BEO CUNT2 
MOV »ZWRTL0G»R3 
JSR PCUILOG 
INC CR3) 

HOV »10,,WTRETRY 
TYPE ,U8LLF 
TYPE ,MREC 
TYPt ,MWRITE 
TYPE ,MCRLF 
JSR PCODCHK 
TST Kl 
flPL NgXTRO 
RTS PC 
DEC SECCNTR 
BNE XREAO 
RTS PC 



TST CSP)+ 
BIT »BIT1,ASTAT 
BEO 1$ 
JPARITY ERROR DURING 



jtest for unit 1 error log 
jlnc recoverable read log 
;resft read retry counter 

ftype recoverable read error 



jis write retry euual to 10 

fyes,no errors occureu 

iset inc, inst, for unit error log 

itest for unit 1 log 

unc recoverable write log 

;reset the write retry counter 

ftype recoverable write error 



JCHECK FOR DELETED DATA INDICATOR 
I8IT 15 OF Rl IS HEAD 1 SECTOR FLAG 



HF SET, GO VERIFY DATA JUST READ 



;READ FUNCTION IS DONE 



IREMOVE THE DONE RETURN FROM THE STACK 
IIS THIS A PARITY ERROR 
fNO, SEE IF ITS A CRC ERROR 
READ FUNCTION 



MOV #MREA0,PTYPl+2 

MOV »MREA0,PTYP2+2 

MOV »REREAD,PCQNT*2 

JMP PAHTEST 

BIT »BIT0,ASTAT 

BNE CRCER 



fSFEK ERROR DURING A READ FUNCTION 



IPUT ADDR OF READ MESSAGE IN PAR ERR TYPEOUT 1 
IPUT ADOR OF READ MESSAGE IN PAR ER TYPEOUT 2 
UF HARD ERR RETURN THROUGH PCOnT TO REREAD 
;ReCORO PARITY ERROR AND RETRY FUNCTION 
lis THIS A CRC ERROR 
lYES GO TEST AND LOG IT 



MOV »RtREAD,SEKRTY+2 
MOV »MREA0,STYPl+2 
MOV »MREAD,STYP2+2 
JSR PC, SEEKER 
BR NtXTRD 



;CRC ERROR DETECTED WHILE READING 



fSET SEEK CONTINUE FOR READ RETRY 
ISET ADDR OF READ MESSAGE IN SEEK ER TYPEOUT 1 
;SET ADDR OF READ MESSAGE IN SEEK ER TYPEOUT 2 
IRECORD SEEK ERROR 

IGO TO NEXT SECTOR, CAN'T READ THIS ONE 



JSR PCTRKERR 
TST HI 
BPL DATACRC 
INC UATACK 
JSR PCEMPBUFF 
TST fcRCNTR 
BNE DATACRC 
MOV »ZCRCBA0iR3 
JSR PCUILOG 
INC CR3J 
CKSmR 

BIT !»SW13,#SWR 
BNE 2S 

TYPE ,MBADCRC 



lINC ERROR PER TRACK COUNTER 

IIF READ ONLY, REPORT DATA CRC ERROR 

ISET DATA CHECK FLAG 

ICHECK FOR A DATA ERROR 

IWA3 THERE A DATA ERROR 

IYE5, REREAD AND/OR REWRITE THE DATA 

ISET INC, INST, FOR UNIT ERROR LOG 

ITEST FOR UNIT 1 ERROR LOGS 

INOiINC BAD CRC GENERATOR ERROR 

ITEST DON'T SWITCH 

ITYPE CRC GENERATOR ERROR 



H4INDEC^U«DISXA«£ HACYli 27 (733) a0«»SEP«7fe i%i^h PAyE 

D2RKAE«Fi| GET VALUE FOR SOFTNI^RE SWITCH REGISTER 



1009 


S^j (£■' ** P .3 © 




1 5052 










i 1 




104405 






2$ S 


C K S N 






f?, is Si a /I 

iu *y O *f 




1 






T <£ T ^ Q ut D 


iTgST HALT ON ERROR S^ilTCH 






1 nil f9l 4 








Drl, l»UN lis 




1013 


Bi0 •« » .3 e 








HLT i 1 




?HALT ON ERROR 






3327 7 7 


CI i;i ii n 01 


1 74332 




ISfT ^QUi4i ^CUID 


I CHECK iJO RETRY SIWTCM 


1 ral ^ 


iH A i> f» 3 












fIF SET LOG HARD ERROR 














UtC I.HET"! 


?HAVE 10 ERRORS BEEN LOGED 


! m! ? 


iH /ii /I ita 7 Rl 


10(0 i WC 










> YES # LOG HARD ERROR 


tnt a 

i&lo 


004672 


0001 37 


m m /I 3 zi t> 






JMP HtHcAO 


INOfGO REREAD DATA 


i i 9 


n n A,. ^ 


012703 


0171 06 






f^QV SZHCHCb AD ^ Hi 


JSET INC, INST, FOR UNlf ERROR LOG 


i 020 


fiS /i ? 05 3 


004737 


3 4 01 il 






J SR f^C 1 U 1 


ITEST FOR UNIT 1 ERROR LOGS 


i 02 1 


Ks't f lee 


005213 








INC C R 3 ) 




1 fflft 


01 a ? 1 ffl 




15240 






T V B ^ HQ 1 1 






a IS /1 7 ! ii 




0,% ''kit Ik 11 








fTYPE HARU CRC GENERATOR ERROR 




(S m n 7 3 nt 

wia'* f CIO 


J O *» »» W K) 








TVD»>' Mf*Ult!^ 
1 T r K, f ni,Kt.r 




1025 


ts a a 7 3 fl 


t Ct/i ^ K M 

5 iO*» le 10 


015724 






T V Of MUSI r 4 4 


JANu MALT »a TMt LWL IstNtKAIuK DDfcSN T 


1026 


004730 








hlt lis 






1027 










1 OAT A 


CRC E^^ROK REREAD AN0/OR 


nC.r"nilC lU Utl uUUU UmI« 


1 028 


304732 


012703 


017042 




DAT acrc : 


MQV #ZCRCL0G#R3 


j<5PT Twr TKi«iT sryo iiftjTT w n oanu inr. 


1029 


(a »# f JO 


904737 


021044 








!TC5T Pr\0 HMTT 4 ^DUnu ifli-l 


1030 


S34742 


0052 1 3 








1 ^ C C H 3 } 




|0S| 


0047 44 


104405 












1032 


i(y iu *? ' O 


032777 


020000 


174240 




HTT SSM 1 ^ . S^UIR 


iTFST nnw'T DOTK. T P aono ^u,TTru 

flCai UUiN 1 rrtilMI CKKUK aW4|l,n 


1 033 


(A iT! /I 7 ^ /I 


ctffl 4 (kali 
(alt/ i U w*» 














ra ffl /I 7 *^ 


4 Zi /i 1^ 


0|S73te 






T VDP MfDr 

1 T r t f ntiKt. 


ITYrt uAiA CHC tHtKuR 


1035 


!ti IP *s f w c 


« iTi a fl laoi 

^ 1^ >9 ^ 


1 5052 










1 03fe 


004766 


4 /I /I ^ 






s 


C K S *^ H 




1 037 


P04770 


0057 7 7 


1 7 dew 






T C T a G Ul O 


JTEST HALT ON ERROR SwITCh 


1038 


rr. e% /t f /t 
004 7 f «l 


1 00001 








BPL CONT 1 6 




1039 


00477fe 


000000 






"L T 1 2 « 




?HALT ON ERROR 


1 0*^0 


00S003 


0327 7 7 


^ r;i A 171 f?l 
63 W " l^ « 


1 7 d0o 


CONT 1 6 • 


Oil »aHiifPa"r< 


iTEaT NU KtlKY aWiTLH 


10^1 


0^5006 


001005 










IIF SET LOG HARD ERROR 


10^2 


6, ;330 I 


005337 


fjl 4 7 i?l ffl /I 






UtC KUKt 1 K T 


JHAVE 10 ERRORS OCCURtD 


10^3 


00501 4 


001402 










f YES LOG HARD ERROR OR REwRITE DATA 


1 0^^ 4 


0050 1 6 


000137 


004246 






JMP HcWEAD 


|NO»GO REREAD THIS SECTOR 




00S022 


012703 


017102 






•^uv » i ~ v» " Li u Uu f " a 


latT lNL,i™ai,rUK UNii i5 cKKyK L<Jl» 




005026 


304737 


ffl 3 4 r.*! /i 






JaK t'LiUl LUb 


iTEoT rUK UNIY I CKKUK LUba 


10^7 


005032 


0052 1 3 








INC tH J) 


iINC HARD CRC ERROR LUG 




tstyiKtj' % 11 




CI Ki \u 1 e 


W 4 7 ,v! 01 U 








i 0^9 




0^5737 


i)« u 4 3 3 
lolo'* ice 






I a 1 " u »* r i w 1 


lla IniO A HCAl/ MrlQn nnllC. rUi^Ui*LiN 


i 0i0 


uo aio «i 










n ni pi u w ^" 1 o 


f V i; fin SF-uiDtTP ?T 


1 05 1 


n m M 1^ ffi 
0!c tJIO 30 




017112 








fKjfi.^FT Twr tki^t Fnw untT pi FHwnu 1 nfi 

flNUfaC>< ^iMU^lniaiB'UrT W'NXI tJ CrlrTUrt |„Ui9 


1 05g 


3 5 '4 5 4 


0047 3 7 


021044 






JSR PCiUlUOG 


fTEST FOR UNIT 1 ERROR LOGS 


1053 


0050fe® 


0052U 








INC (HJ) 


JREAO ONLY, HARD READ ERROR 


105^ 


305062 


104400 


015243 






TYPt ,UBLLF 




i@3S 


i?05066 


104400 


01S75S 






Type , MUNWtc 


f TYPE UNRECOVERABLE READ ERROR 


1056 


00507a 


104400 


015674 






TYPt ,MREAO 




10S7 


rt^5076 


} 04400 


015052 




C0NT7 S 


T YPfe , MCRLF 




1058 


0051ig 


062706 


000002 






ADD S2,3P 


IREMMOVE READ DONE ADDRESS FROM STACK 


1059 


7^05106 


000137 


004450 






JMP NEXTRD 


;READ NEXT SECTOR CAN'T READ THIS ONE 


1060 


P05U2 


104405 






CUNT6S 


C K S K 




10fe| 


S05ii4 


052777 


004000 


174072 






ITEST NO RETRY SWITCH 


10^2 


005122 


01^1011 








HnE f S 


;IF SET LOG HARD ERROR 


I0fe3 


305124 


005337 


k.17006 






UtC wTNETKY 


JHAVE 10 REWRITES BEEN DONE 


1064 


9051 3k5 


001406 








BEO 7i 


1 YES, LOG HARD WHITE ERROR 



MAlNDgC»l|»DlftXA«E MACYli 27C7323 20-SBP-76 15146 PAUfc 21 

OIRSSAE.Pil GET VALUE FOR SOFTWARE SWITCH REGISTER 



1065 


005132 


005137 


004124 






COM tRWRT 


INOfSET THE WRITE CAUSED flY ERROR FLAG 


1066 


005136 


062706 


000002 






A00#2,aP 


IREMOVE RDDQNE ADDRESS FROM STACK 


1067 


005142 


000137 


003130 






JMP UNEWRT 


IREWRITE SECTOR THEN REREAD TO CHECK FOR 


1068 


005146 


012703 


ei7ii6 




7SI 


MOV »ZMwRTLOG, R3 


ISET INC, INST, FOR UNIT ERROR LOG 


1069 


00S1S2 


004737 


021044 






JSR FCiUlLOG 


/TEST FOR UNIT 1 ERROR LOGS 


1070 


00S156 


005213 








INC IR3) 


;haR0 write ERROR 


le^i 


005160 


012737 


000012 


017006 




Muv »i0,,wrReTRY . 


IRESET WRITE RETRY COUNTER 


1072 


005166 


104400 


015240 






TYPE lUBLLF 




1073 


E05172 


104400 


015755 






TYPE ,MUNREC 


ITYPE UNRECOVERABLE WRITE ERROR 


1074 


005176 


104400 


016010 






TYPE fHWRITE 




1075 


005202 


000735 








8R CONTT 




1076 
















107? 
















1078 
















1079 
1030 


005204 
005212 


032737 
001472 


001000 


001212 


DDCHKI 


HIT »BXT9,DTESTP 
BEQ CONT10 


ITEST BIT 9 AS TO DELETED DATA TRANSFER 


10S1 


005214 


132737 


000100 


01007^ 




yiTd #t»IT6,ASTAT 


?THIS IS A DELETED DATA FUNCTION 


1082 


003222 


301114 








BNE RETURN 


IDD BIT SHOULD &E SET 


1083 


005224 


012703 


017066 






MOV S2UDMIS,R3 


ISET INC INST FOR UNIT ERROR LOG 


1084 


005230 


004737 


021044 






JSR PCUILOG 


ITEST FOR UNIT 1 ERROR LOGS 


i0@5 


005234 


005213 








INC CR3) 


IINC MISSING DELETED DATA LOG 


i0S6 


005236 


004737 


003770 






JSR PC#TRKfcRR 


IINC ERROR PER TRACK COUNTER 


108? 


005242 


104405 








CkSwR 




1098 


005244 


032777 


020000 


173742 




»IT »SWi3#^SWR 


ITEST DON'T PRINT ERROR S»(ITCH 


1039 


005252 


001011 








HNE CONTll 




li^i 


005254 


104400 


014506 






TYPE iMOOMiS 


ITYPE MISSING DtLETED DATA BIT 


1091 


005260 


052737 


000400 


010704 


DDtRRi 


HIS !SBITa,UNlTSfcL 


ISET HAD ERROR FLAG 


1092 


005266 


004737 


0tf77l6 






JSR PCrTYPADR 


ITVPE ADDRESS OF ERROR 


1093 


005272 


104400 


015052 






TYPE ,MERLF 




1094 


005276 


104405 






CONTllI 


CKSWR 




i0?5 


005300 


005777 


173710 






TST PSWR 


ITEST HALT ON ERROR SWITCH 


1096 


005304 


100001 








8PL C0NT17 




1097 


005306 


000000 






HLTi3l 


HALT 


IHALT ON DELETED DATA ERROR 


109S 


005310 


032T77 


004000 


173676 


CONT175 


BIT »SWil,#SWR 


ITEST NO RETRY SWITCH 


1099 


005316 


001005 








»NE 4$ 


IIF SET LOG HARD ERROR 


1100 


005320 


005337 


017010 






DEC UDRETRY 


IHAVE 10 ERRORS SEEN LOGED 


U0i 


005324 


001402 








BED 4S 


lYES LOG HARD ERROR 




005326 


000137 


004246 






JMP REREAD 


|N0» REREAD SECTOR 


im 


005332 


013703 


017126 




4SI 


MOV ?*ZHD0LPG,H3 


ISET INC INST, FUR UNIT ERROR LOG 


1184 


005336 


004737 


021044 






JSR PCUILOG 


ITEST FOR UNIT 1 ERROR LOGS 


1105 


005342 


005213 








INC IR3J 




1106 


005344 


104400 


015240 






TYPE jUBLLF 




US? 


0053S0 


104400 


015755 






TYPE ,MyNREC 


ITYPE UNRECOVERABLE DELETED DATA ERROR 


110S 


005354 


104400 


01561S 






TYPE ,MODER 




1109 


003360 


104400 


015052 






TYPE ,MCRLF 




UI0 


005364 


004T37 


007716 






JSR PCTYPADR 




nil 


005370 


104400 


015052 






TYPE ,MCRLF 




iU2 


035374 


000137 


004450 






JMP NEXTRO 


IREAD NEXT SECTOR 


1113 


005400 


032737 


000100 


010070 


CONT101 


6IT »BIT6,ASTAT 


ITHIS IS NOT A DELETED DATA TRANSFER 


1114 


005406 


001422 








BEQ RETURN 




UiS 


005410 


012703 


017072 






MOV #ZUNXDD,N3 


ISET INC INST, FOR UNIT ERROR LOG 


UU 


005414 


004737 


021044 






JSR PCUILOG 


ITEST FOR UNIT 1 ERROR LOGS 


1117 


ii543@ 


005213 








INC CR3) 


lUNEXPECTtO DD BIT SET 


ilia 


005422 


052737 


000400 


010704 




818 saiTfiiUNlTSEL 


ISET HAD ERROR FLAG 


1119 


005430 


004737 


003770 






JSR PCfTRKERR 


IINC ERROR PER TRACK COUNTER 


1120 


0i5434 


104403 








C«S«H 
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005436 


032777 


02aw00 


1 73550 




BIT 


»SW13,#SWR 


ITEST DON'T PRINT ERROR SWITCH 


ms 


305aaa 


001314 








BNE 


CQNTll 




U23 


005aab 


104400 


014a62 






TYPE ,HUNXUD 


ITYPE UNEXPECTED PELETEU DATA BIT 


ilia 


005452 


300702 








BR 


UUfcRR 




US5 


305454 


000207 






HfeTyHN! 


RTS 


PC 




1126 




































1 158 




























J 1 ****** 




1130 






























fWRlTE. ALL 


SECTORS, READ AND 


VERIFY ALL SECTORS 


U3a 












f T a 3 
























1 1 3<l 


005456 


0B51 37 


00a 122 




wTROCK I 


COM 


RDAFTwr 


ISET HEAD AFTER WHITE FLAG 


U35 


005462 


004737 


01M312 






JSR 


PCGETPATTERN 






0tl5466 


0047S7 


01114 4 






JSR 


HCINITTRACHS 




1 M7 


005472 


004737 


01 0b 14 






JSR 


HCGETUNIT 




1138 


005476 


004737 


01 1254 




ISI 


JSR 


RC,Gt TTRACK 




U39 


005502 


004737 


0^3112 






JSR 


PC, WRITE 






035506 


304737 


005526 






JSR 


PCREADCHK 




I HI 


035512 


005337 


01 1356 






oec 


TRKCNTR 




i H2 


005516 


001367 








HNE 


IS 




1 1'*3 


005520 


0047 37 


010732 






J&R 


FCSTQP 




I l«a 


905524 


000760 








bR : 


XWTROCK 




U'^S 


















I H6 


















1 H7 
















i 1^9 


















I H9 












;REA0 a SECTOR, empty THE SECTOR BUFFER AND VERIFY 


i 1^0 












MHE DATA REAP AGAINST CORE 


DATA BUFFER 


i |5l 
U52 


005526 


052701 


Hd04?00 




RtAOCHK J 


BIS 


»BITlb,Rl 


;SET READ ONE SECTOR FLAG 


1 153 


005532 


004737 








JSR 


PC, READ 


JGO RtAu ONE SECTOR 


1 i5a 


005536 


005737 


012306 




EMPBUFFl 


TST 


SECCNTk 


UF CLEARED NO SECTOR WAS FOUND 


i 155 


005542 


001002 








HNE 


2S 




1 1^6 


f?05544 


0001 37 


006432 






JHP 


EXIT 


JGO TO NEXT TRACK CAN'T READ THIS ONE 


1157 


0(35550 


005037 


U«36434 






CLR 


bYTECNTR 


JCLEAR THfe flYTE AND EKRUR COUNTERS 


Ub8 


005554 


005037 


01^6442 






CLR 


ERCNTR 




1 159 


035560 


052701 


000200 






BIS 


»eiT7,Hl 


;ri eiT 7 IS uSEP as first erkok flag 


I 160 


005564 


004737 


005656 






JSR 


PC, AUJ5UM 


JADJUST DATA ANU CK SUH FOR ADDRESSES 


i 161 


3«;5570 


005037 


00574© 






CLR 


CK5UM 


fSET UP FOR CHECK SUM ACCUMULATION 


1 162 


00557a 


01274© 


006212 






HOV 


»EMPDONE,» CSP) 


JSET UP RETURN ADDRESSES 


U6S 


3'<3565a0 


012746 


005750 






MQV 


SEMPER, -CSP) 




1 16<> 


1^05604 


005046 








CLR 


-ISP) 


fLOi^ER INTERUPT LEVEL 


1165 


005606 


012746 


005614 






HOV 


»1S,-CSPJ 




1166 


005612 


000002 








RTI 






1167 


B05614 


012777 


000103 


173364 


isi 


MUV 


«£ttIE, PRXCS 


JLOAO EMPTY SuFFEh FUNCTION 


1163 


005622 


004737 


01^7014 




EMPFUAG! 


JSR 


PC, TRCK 


ITEST FOR TK FLAG 


1 169 


















1170 


205626 


U7737 


1 73356 


0k)6436 


CKBYTt: 


MOVd ?KXna,8ADHYTt 


JSAVE BYTE FROM DISKETTE 


U7i 


005o34 


063737 


00ba36 


0t«5746 




AOD 


BAUeYTE,CKSUM 


lACCUMULATE CHECK SUH 


U7a 


005642 


123720 


006436 






C'iPB aADBYTE, CR0) + 


ICOMPARE AGAINST GOOD BYTE 


1173 


005646 


001054 








BNE 


IJATAEH 


tlf NOT EUUAL GO TO DATaER 


1 1 7a 


005650 


005237 


006a3a 






iNC 


BYTECNTR 




1175 


005654 


000762 








BH 1 


EMPFLAG 


;GET NEXT BYTE 


U76 
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1177 


B05656 


U3737 


011360 


016604 


ADJSUM! 


MOVB TARGET, euFAOR 


fSFT FIRST AND SECOND BYTES WITH ADDRESSES 


1178 


005664 


U3737 


012310 


016605 




MOVe TSECT0R,8UF AOR+1 




1179 


C05672 


013737 


010612 


005746 




MOV SUMjCKSUM 


IGET THE PATTERN SUM 


1180 


205700 


063737 


011360 


005746 




ADO TARGET, CKSUH 


MOD TRACK ADDRESS TO CHECK SUM 


1181 


005706 


063737 


012310 


005746 




ADD tStCT0R,CKSUM 


fADD SECTOR ADDRESS TU CHECK SUM 


U82 


005714 


U3737 


005746 


017002 




MOVa CKSUM,BUFADR-»'176 


IINSERT CHECK SUM TO DATA BUFFER 


1183 


005722 


106337 


B05746 






ASLB CKSUM 


IGENERATE NEGITIVE CHECK SUM 


U84 


005726 


105437 


005746 






NEGO CKSUM 




1185 


005732 


113737 


005746 


017003 




MOVB CKSUM, eUFADR+177 


IINSERT NEG,SUM INTO DATA BUFFER 


1186 


005740 


312700 


016604 






MOV »BUFADR,R0 


ISET ADDRESS OF BYTE IN «0 


1187 


C05744 


000207 








RTS PC 


IRETURN 


1188 
















1189 


0£'5746 


000000 






CKSUMI 







1190 
















1191 


005750 


005726 






EMPERS 


TST tSP)* 


IREMOVE THE DONE RETURN FROM THE STACK 


1192 


005752 


012737 


015402 


003264 




MOV »MEMPTY,PTYPl+2 


IPUT AODR OF EMPTYBUF MESSAGE IN PAR ER TYPOUT 


1193 


005760 


012737 • 


015402 


003354 




MOV »MtMPTY,PTYP2+2 


IPUT ADUR OF EMPTYBUF MESSAGE IN PAR ER TYPOUT 


Ii9a 


005766 


012737 


005536 


003334 




MOV »EMPBUFF,PCQNT*2 


INOT HARD ERR RETURN THROUGH PCONT TO EMPTYBUF 


1195 


005774 


000137 


003244 






JMP PARTE8T 


IREPORT PARITY ERROR 


1196 
















1197 


006000 


052737 


000400 


010704 


DATAER! 


BIS »BIT8,UNIT8EL 


ISET THE HAD ERROR FLAG 


1198 


006006 


005237 


006442 






INC ERCNTR 


lINC THE BYTE ERROR COUNTER 


1199 


306012 


104405 








CKSMM 




1200 


006014 


332777 


020000 


173172 




BIT »SW13,PaWR 


ITEST PRINT ERROR SW IN SWR 


1201 


006022 


001062 








BNE NOtRTYP 


IDON'T PRINT THE ERROR 


1202 


006024 


032777 


010000 


173162 




BIT «SW12,9SWR 


ITEST PRINT 10 ERRORS SWITCH 


1203 


006032 


001404 








BEQ IS 


IPRINT ALL ERRORS 


1204 


006034 


023727 


006442 


000012 




CMP ERCNTR, «10, 


IHAV6 10 ERRORS BEEN TYPED 


1205 


01^6042 


003052 








8GT NOtRTYP 


IYES,OON'T PRINT ANY MORE 


1206 


006044 


005737 


004126 




l$i 


TST DATACK 


IWAS THIS A READ CHECK DUE TO CRC ERROR 


1207 


006050 


001403 








BEQ as 


INO, REPORT DATA ERRORS 


1208 


006052 


105701 








TST8 Rl 


|YES,TEST FIRST ERROR FLAG 


1209 


006054 


100017 








(JPL TYPERR 


ITYPE THE DATA CRC ERROR 


1210 


006056 


000412 








BR 3S 




1211 


006060 


105701 






2SS 


TSTB Rl 


ITEST FIRST ERROR FLAG 


1212 


006062 


100014 








BPL TYPERR 




1213 


006064 


104400 


015052 






TYPE ,MCRLF 




1214 


006070 


104400 


014527 






TYPE ,MDERHDR 


IPRINT ERROR HEADER 


1215 


006074 


104400 


015052 






TYPE ,MCRLF 




1216 


006100 


004737 


007716 






JSR PCiTYPAOR 


IPRINT TRACK AND SECTOR LOCATIONS 


1217 


006104 


104400 


014616 




3SI 


TYPE ,MCQUMyN 


ISET UP COLMUN HEADINGS 


1218 


006110 


042701 


000200 






BIC »BIT7,R1 


ICLEAR FIRST ERROR FLAG 


1219 


006114 


013737 


006434 


006126 


TYPERRS 


MOV BYTECNTR, IS 


IPRINT BYTE NUMBER 


1220 


006122 


004537 


0ia446 






JSR R5,SGLDEC 




1221 


006126 


000000 






l$i 


OPEN 




1222 


006130 


104400 


015047 






TYPE ,DBLSP 




1223 


006134 


013746 


006436 






MOV BADBYTE,-CSP5 


IPRINT BYTE READ FROM DISKETTE 


1224 


006140 


104402 








TYPOS 




1225 


006142 


000003 








.WORD 3 




1226 


006144 


104400 


B15047 






TYPE ,UBL5P 




122? 


006150 


114037 


0b}6440 






wove -CR0) ,GOOOBYTE 


IGET GOOD BYTE 


1228 


006154 


005200 








INC R0 


IRETURN R0 TO NEXT BYTE IN BUFFER 


1229 


006156 


013746 


006440 






MOV eOODBYTE,«CSP) 




1230 


006162 


104403 








TYPON 


IPRINT GOOD DATA 


123i 


006164 


104400 


015052 






TYPE ,MCRLF 




1232 


006170 


104405 






NOERTYP! 


CKSWR 
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1233 


0061 72 


005777 


1 73016 






006176 


1 00001 






1235 


«J W w C wKI 


000000 






1236 




005237 


006434 




1237 


w V O C Kf V 


0001 37 


00boS2 




1238 










1239 


006212 


0057 37 


004 1 26 




12^0 


n rji ^ a 4 t. 


1010 I <l Kl ) 






* c'* 1 


UloDccIo 












\OvJi a > 


ly V o c 




1203 




001471 






1 2^^ 


i3 ui a 1 01 


1 04405 






1245 


nauo % a 
uiuoe a c 


032777 


020000 


172754 


1246 


!g luD C 


an 1 niaa 

lOlO 1 luCt 






1 247 


niXA,ail a 




015333 




1246 


KivuC HO 


0137 37 


006442 


006260 


1249 


006254 


004537 


1 4446 




1250 


006260 


000000 






1251 


006262 


1 04400 


016327 




1252 


006266 


105737 


005746 




1253 


006272 


001403 






1254 


006274 


104400 


016067 




1255 


006300 


000402 






1 256 




1 04400 


016322 




1257 


<d V w Jiyo 


1 i}4400 


15052 




1 256 


0063 1 2 


012703 


017062 




1259 


00631 6 


3047 37 


02 1 1)44 






■11 c s a a 
uwDacc 








1261 


006324 


004737 


003770 




1262 


If; u w a a w 


1 04405 










0327 77 


00 4(^00 


I 72654 


1 afcfl 


111 m i« 1 a 171 


OiJi\ rJl fjl 7 
luv & Ip w r 






1265 


n d X a a 


w v3 a 3 ' 


01 7012 




1266 


10 V o a H Q 








1267 


n M X ^ 01 


0047 37 


004246 




1266 


ici iuD a a *f 


V Klv 1 a r 


005536 




1269 


*C V w J wv? 


012703 


017|22 




1270 


006364 


0047 37 


021044 




12 M 


^ 10 D J ' 


00521 3 






1272 




I iO ** H W 10 


C 15240 




12^3 


1^ V D a r O 


1 0(1400 


015755 




1274 


Kl c? w ^ V C 


1 04400 


Pi 1 4 5 2 7 




1275 




1 04400 


1 5052 




1276 


0^6412 


005337 


012306 




1277 


206416 


001405 






1278 


006420 


004737 


0id4^04 




127«? 


006424 


000137 


005536 




1280 


P'06430 


005001 






1281 


0^6432 


000207 






1282 










I2fi3 


006434 


000000 






1284 


006436 








1285 


006440 


000000 






1286 


006442 


000000 






1267 










1288 











HLT14; 
CONT20! 



4SI 
5Si 

2$: 



3SI 
E)tITI 

BYTECnTR ! 
tSAOBYTE: 

guodbyte: 

ERC^TR! 



T8T 9SWR 
8PL C0NT2fci 
HAUT 

INC BYTECNTR 
JMP tMPFLAG 

TST DATACK 
BEQ IS 
RTS PC 
TST fcRCNTR 
HEO CQNT3 
CKSwK 

BIT »SW13,PSWR 
8NE 2S 
TYPE ,MEHCT 
MOV fcRCNTR»3S 
JSR H5,SGLUEC 
OPEN 

TYPE ,MSUM 
TST6 CKSUM 
BEQ 4S 
TYPE ,MERS 
yR 5$ 

TYP£,MliOUU 

TYPt ,MCRLF 

MOV »ZUATALDG,R3 

JSR FCUILOG 

INC IRi) 

JSH PC»TRKEHR 

CKSmh 

BIT #SWli,#SWR 
BNE 6S 

DEC UATARETRY 
BEQ 6$ 

JSH PC»REKtAO 

JMP tMHBUFF 

MOV »ZMDATAL.0G,R3 

JSR PCUIUOG 

INC IR3) 

TYPE lUBUUF 

TYPt ,MUNHEC 

TYPE jMOENHDR 

TYPE jMCRLF 

UfeC 3ECCNTR 

Bfca t%lT 

JSR HCXREAD 

JMP EMPBUFF 

CL.R HI 

HTS PC 





ITEST HALT ON ERROR SWITCH 



?WAS THIS REAOCHECK CAUSED 8Y CRC ERROR 
INO, CONTINUE 

lYES, RETURN TO CRC ERROR HANDLER 
IWAS THERE ERRORS 
KNO ERRORS 

>YES,TEST DON'T PRINT SWITCH 

JDON'T PRINT THE ERROR 

JPRINT THE TOTAL DATA ERROR COUNT 



IINDICATE IF CHECK SUM WAS GOOD OK HAD ERRORS 



fSET INC, INST, FOP UNIT ERROR LOl» 

;TEST for unit l tRROR LOGS 

HNC DATA ERROR LOG 

UNC ERROR PER TRACK COUNTER 

fTEST NO KETRY SWITCH 
;IF set LOG HARD ERROR 
,*HAVE 10 ERRORS BtEN LOGEO 

INO, GO REREAD THE DATA 

;G0 RECHECK THE DATA 

IYES,SET INC.INbT.FOR UNIT k) ERROR 

ITEST FOR UNIT 1 ERROR LOGS 

lINC HARD DATA NO STATUS ERROR 

»TYPE UNRECOVERABLE DATA NO 
fSTATUS ERROR 



;REA0 THE NEXT SECTOR 
JCLEAW THE ONE READ FLAG 
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1289 












1290 










;REAO AND VERIFY ALL SECTORS WRITTEN ciY 


1291 










{PREVIOUS WRITE FUNCTION 


1292 












1293 










} T a 4 


1294 












1295 


006444 


004737 


010312 


RDCHK : 


JSR PCGETPATTERN 


1296 


006450 


004737 


011144 


XRUCHK : 


JSR PC, INI TTHACKS 


1297 


006454 


004737 


010614 




JSR PCGETUNIT 


1298 


006460 


004737 


F.11254 


is: 


JSR PCGETTRACK 


1299 


006464 


004737 


005526 




JSR PCREADCHK 


1300 


006470 


005337 


011356 




UEC TRKCNTR 


1301 


006474 


001371 






BNE IS 


1302 


006476 


004737 


010732 




JSR PC, STOP 


1303 


006502 


000762 






BR XRDCHK 


1304 












1305 












1306 










1307 












1308 










100 A READ ONLY FUNCTION ON ALL SECTORS 


1309 










fTHIS DOES NUT VERIFY THE DATA, ONLV TESTS FOR CRC ERRORS 


1310 










f T 8 5 


1311 












1312 


006504 


004737 


010312 


ROONLY! 


JSR PCGRTPATTERN 


1313 


006510 


004737 


011144 


XROONLY 


: JSR PC, INITTRACKS 


1314 


006514 


004737 


010614 




JSR PCGETUNIT 


1315 


006520 


004737 


011254 


l$l 


JSR PCGETTRACK 


1316 


006524 


004737 


004200 




JSR PCREAO 


1317 


£06530 


005337 


011356 




DEC TRKCNTR 


1316 


006534 


001371 






BNE 1$ 


1319 


006536 


004737 


010732 




JSR PCSTOP 


1320 


006542 


000762 






BR XKDUNLY 


1321 












1322 












1323 












1324 












1325 












1326 










IWRITE AND READ CHECK ANY DATA PATTERN, AND ANY TRACK SEQUENCE 


1327 










IBUT ALTERNATE BETWEEN DRIVE UNITS UN EACH TRACK SELECTED. 


1326 










1 T B 6 


1329 












1330 


006544 


005137 


004122 


DRVSWPI 


COM ROAFTWT fSET THE READ AFTER WHITE FLAG 


1331 


006550 


004737 


010312 




JSR PCGETPATTERN 


1332 


006554 


004737 


011144 


2$l 


JSH PCINITTRACKS 


1333 


006560 


004737 


010614 


151 


J8R PCGETUNIT ISET UP FOR UNIT 


1334 


006564 


004737 


011254 




JSR PCGETTRACK >GET THE TRACK TO 8E ACCESSED 


1335 


006570 


004737 


003112 




JSR PCWRITE 


1336 


006574 


004717 


005S26 




JSR PCREAOCHK 


1337 


006600 


004737 


010614 




JSR PCGETUNIT JNOW GO TO UNIT 1 ON THE SAME TRACK 


1338 


006604 


004737 


003112 




JSR PCWRITE 


1339 


006610 


004737 


005526 




JSR PCREADCHK 


1340 


006614 


005337 


011356 




DEC TRKCNTR 


1341 


006620 


001357 






BNE IS 


1342 


006622 


004737 


010732 




JSR PCSTOP 


1343 


006626 


000752 






BH 2S 


1344 
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OZRXAE.Pll GtT VALUE FOR aUFTWARE SWITCH REGISTER 



13<I5 
















I3«7 








13«8 








13«9 








1350 








1351 








1352 








1353 








i35a 








1355 








1356 








1357 








1356 


006630 


004757 


010312 


1359 




013737 


01 1370 


I3t>0 


006642 


012737 


000001 


13bl 


0156650 


0<35i37 


004 I 22 


1362 


t'0665a 


004737 


r-Il 1«4 


I3b3 


006660 


004737 


010614 


1364 


006664 


0k)4737 


(^1 1254 


1365 


026670 


004737 


0031 12 


1366 


006674 


^04737 


00552b 


1367 


006700 


005337 


0U356 


1368 


306704 


001367 




1369 


306706 


005037 


004122 


13^0 


006712 


013737 


00701 2 


137i 


i?!0672p 


004737 


Rl U«4 


1372 


(306724 


004737 


01 1254 


1373 


006730 


004737 


005526 


nn 


306734 


005337 


011350 


1375 


30674e 


001371 




1376 


306742 


304737 


i7il W7 32 


13^ 


^06746 


EJ2737 


1 00 


13^8 


006754 


001332 




1379 


006756 


012736 


001200 


138? 


006762 


032737 


0S()1000 


1361 


006770 


001404 




1382 


006772 


042737 


001000 


1383 


007000 


000720 




1384 


£«J7002 


052737 


Dk)1000 


1385 


307010 


0&0714 




1386 








1387 


U07012 


000000 




1388 








1389 








1390 








1391 








1392 


307014 


Oij5037 


007200 


1393 


30702e 


01274& 


0(^.0i40 


139<| 


C^07024 


01274b 


■3w7k'32 


1395 


007030 


000002 




1396 


007032 


105777 


172150 


1397 


■?07036 


100001 




1398 


-i(i7040 


000207 




1399 


307042 


023727 


00ba34 


14130 


307C50 


00 J 40 3 





tlHt FIRST HAth OF TEST 7 FORCES THE TRACK SEQUENCE 

JTO iNCRIMgNT UP THROUGH ALL THE TRACKS OPING WHITE / READ CHECK FUNCTIONS, 
;THIS VtHIFItS THAT ALL THF. TRACKS ARE ACCESSABLE, 

ITHE SECOND HALF UF THE PASS WILL USE THE SEQUENCE SELECTED By THE 
fOPERArow AS INDICATED BELOW, AND ONLY READ CHECK THE DATA JUST WHITTEN, 
ITHIS VERIFIES THAT THE OaTA CAN BE READ FROM A TRACK, AFTER THE HEAD HAS BEEN 
IHOVED AWAY FROM AND BACK TO THAT TRACK, AT THE COMPLETION OF THE PASS 
JTHE DELETEO DATA BIT IN TEST CONDITIONS IS COMPLEMENTED AND THE NEXT 
IPASS WILL ttt HpN UNDER THIS NEW CONDITION, 



I 



007012 
01 1370 



TtSTT! 
TEST7X! 



01M704 

001212 
001212 
001212 



T a OR 7 




JSR 


PCGETPATTERN 




MOV 


SEUUEN,SEQSAV 


ISAVE THE SELECTED SEUUENCE 


MOV 


»1 ,SEQUEN 


IFORCE INCREMENT SEQUENCE 


COM 


WDAF TwT 


»SET READ AFTER WRITE FLAG fOR ERROR TESTING 


JSR 


PC, INITTRACKS 




JSR 


HCGETUNIT 




JSR 


PCGETTRACK 




JSR 


PC, WRITE 




JSR 


HCREAUCHK 




DEC 


THKCNTK 


?IS THE FIRST HALF OF THE PASS DONE 


yNE 


IS 


INO, CONTINUE WRITTING AND READING 


CLR 


hoaftwt 


;yes,now on a real only 


MOV 


SEUSAV,SEuiUEN 


JUSING SELECTED SEQUENCE 


JSR 


PC, INITTRACKS 




JSR 


HC»GETTRACK 




JSR 


PC»REAOCHK 




DEC 


TRKCNTK 


JIS THIS HALF OF THE PASS DONE 


BNE 


2S 


;nO, CONTINUE READ CHECKING 


JSR 


PC, STOP 


»YE5,TEST FOR END OF PASS CONDITIONS 


8IT 


«40100,UNITSEL 


IHAVE ALL SELECTED UNITS BEEN USED 


ONE 


TEST7X 


;iF A USED BIT IS STILL SET GO TO NEXT DRIVE 


MOV 


»1200,SP 


JRESE1 STACK ADDRESS FOR aCTII EOP 


HIT 


»BIT9,0TtSTP 


;nEXT PASS, COMPLEMENT D BIT 


BtQ 


iS 




wiC 


»y 1 T9, DTESTP 


UT WAS ON CLEAR IT 


HP. 


rtSTTX 




«IS 


»ttlT9,0TtSTP 


;IT WAS OFF SET IT 


MR 


TtST7X 





stuSAv; 



JTEST FOR TRANSFER FLAG AMU PROGRAM NOT HUNG 



000200 IS! 



CLR HCNTRl 
HUV »PK7,-ISP} 
MOV »3S,-CSP) 
RTI 

TST"S #WXCS 
fc<PL IS 
RTS PC 

CMP BY rtCNTK , »12a, 
BEO 25 



JCLEAR HUNG COUNTER 

JHilSE INTEKUPT LEVEL TO INHIBIT INTERUPTS 



JTEST FOR TR FLAG 

;SKIP NEXT INST, IF NOT SET 

;RETUPN to TRANSFER DaTa 

niAVE 128 BYTES BEEN 1RANSFERED 

••ALLOW AN INTEHUPM IF EQUAL 



MAlNUEC-l l-DZRXA-E HACYU 27 (732) 20-SEP-76 15:46 

0ZHXAE,P1| GET VALUE FuK SOFTWARE SWJTCH REGISTER 



1401 


007052 


005237 


007200 


1402 








1403 








1404 


007056 


001365 




1405 


007060 


132777 


000040 


1406 








1407 








1408 


307066 


001407 




1409 


007(i70 


005037 


0k.i6«34 


1410 








14U 


007074 


Z05726 




1412 


007076 


005046 




1413 


007106 


012746 


007106 


1414 


007104 


000002 




1415 


007106 


005237 


0*37200 


1416 


007112 


001362 




1417 


0071 14 


10&490 


215432 


1418 


007120 


000000 




1419 








1420 








1421 








1422 


007122 


012603 




1423 








1424 


007124 


005037 


007200 


1425 


007130 


012737 


1777«0 


1426 


007136 


032777 


000040 


1427 


007144 


001402 




1428 


007146 


010346 




1429 


007150 


000207 




1430 


007152 


062737 


000001 


1431 


007160 


005537 


007202 


1432 


007164 


005737 


007202 


1433 


207170 


001362 




1434 


007172 


194400 


015432 


143S 


007176 


000000 




1436 








1437 








1436 


£07200 


000000 




1439 


007202 


177740 




1440 








ia«i 








I4tt2 








1413 


007204 


005237 


017034 


1404 


007210 


104405 




1445 


007212 


032777 


020000 


1446 


007220 


001004 




1447 


007222 


104400 


015260 


1448 


007226 


104400 


ei5052 


1449 


007232 


104405 




1450 


007234 


005777 


171754 


1451 


007240 


100001 




1«52 


0072«2 


000000 




1453 


007244 


004737 


007250 


14S4 








1455 








1456 









INC HCNTRl 



BNE 5S> 

BITq ffUDNEHIT,#RXCS 



BEQ "S 

CLR BYTECNTR 

TST tSP)* 
CLR -CSP) 
MUV »4a),-C5PJ 
RTI 

INC HCNTRl 
BNE 2S 
TYPE ,MHUNG 
H&Lt 



;iF THE HUNG COUNTER UVERFLOWES EITHER 

JTHERE WAS NO TR FLAG OR NO INTEKUPT OCCURED 

r'AFTEP 128 BYTES TRANSFERED 

;n0 OVERFLOW RETEST FOR TR FLAG 

?TEST FOR A DONE FLAG WmICh WOULD INDICATE A 

fPOSSABLE ERROR CONDITION EXISTS WHILE 

JTRANSFERING COMMANDS OK DATA 

;iF DONE NOT SET, TYPE HUNG 

»CLtAR BYTE COUNTER SO IT WON'T INTERFERE 
ywITH TESTING FOR ODNt, 

irehove this return address from stack 
ilower interupt level to accept an interupt 
ithe interupt will return through previously 
iset addresses 

;allow some time for flag to set 



IPROGRAM HUNG, 5P (177706) CONTAINS RETURN 
lADDRESS OF WAITING LOOP 



fTEST FDR DONE FLAG AND PROGRAM HUNG 



007202 
172042 



007200 l$l 



HLT20: 



HCNTRl I 
HCNTR2: 



MUV CSP)+,R3 

CLR HCNTRl 

MOV »177740,HCNTR2 

PIT »DUNEBIT,#RXCS 

BEQ IS 

MOV R3,-CSP) 

RTS PC 

ADD »1, HCNTRl 

ADC HCNTR2 

TST MCNTR2 

BNE 2S 
TYPE ,MHUNG 
HALT 



ITAKE THE RETURN ADDRESS OF THE STACK INCASE 

ITHE PROGRAM IS EXPECTING AN INTEKUPT AT DONE 

ICLEAR THE LOWER HUNG COUNTER 

ISET UPER COUNTER FOR 31 FULL LOOPS 

I TEST FOR DONE FLAG 

IIF NOT SET SKIP RETURN 

IPUT RETURN ADDRESS BACK ON THE STACK 

IRETUHN 

IWHEN THE DOUBLE WORD COUNTER OVEHFLOWES 
ITHE PROGRAM MUST BE HUNG 

IIF NO OVERFLOW RETEST FOR DONE 

IPROGRAM HUNG, CONTENTS OF R3 (177703) HOLOES 
lADDRESS OF WAITING TEST, 



IAN INTERUPT DID NOT OCCURE AT A FUNCTION DONE FLAG, 



MLT15J 
C0NT21 5 



INC INTER 
CKSWH 

BIT »SW13,#SWR 
BNE li 

TYPE ,MINTtR 
TYPE ,MCRLF 
CKSWH 
TST PSWR 
BPL C0NT21 
HALT 

JSR PCilNTSERV 



lINC INTERUPT ERROR COUNTER 
ITEST DON'T PRINT ERROR SWITCH 
ITYPE NO INTERUPT ON DONE ERROR 

ITEST HALT ON ERROR SWITCH 
IHALT ON ERROR 

IJSR TO INTSERV AS IF IT WAS AN INTERUPT 



OIRMAEsPli GET VALUE FO^ SOFTWARE SWITCH RtGISTEf? 





































}{3W ' CJ%) 


1 177 37 


171734 


mi fflu 7 a 

IP i W W f IP 


A na 1 G " * 9 




9CAU1? TU£ CUQn£3 A\iA QfATlIC iiirtDH 

fSAVe. iHc c KRQH ANU aiAfUB wOHU 




007630 


0057 7 7 


171724 






Tot s'KXua 


JTES7 THE ERROR FLAG 


I S& 1 


207262 


t Gl 91/1 CI 
1 BW'*3K! 










fTHERg MAS AN ERROR GO REPORT IT 




007264 


0327 3 7 


rji r% fit A a /I 






047 SOiTefASTAT 


IIS INIT UONE SET 




007272 












1 NO # CON T I NUE 


1464 


m m 3 1' /I 


m fli IS 4 K 7 


ffl 1/1 7 7 a 3 






JMP WXFWK 


lYESfREPOHT POWER FAlUtD AND RESTART 




007 300 




lA M !?t M 






HT7 i»l AeTA7 


lARE PAR OR CRC BITS SET 


J 8J©6 


007306 


001023 








ywE IS 


/YES GO LOG ERROR 


146? 


037310 




favvW **iO 








#13 DU™C afc T 




007316 


low 1 J *• 










»ir at 1 KtTUKN TO ital 




007320 


0052 37 


01 7032 








#INl. UNRNUwN INTr. nUri CKKUN LUu 


1 4 ' 


B07324 










C K 8 ^ ^ 






007326 


032777 


020000 


171660 




BIT »8W13,#SWR 


/TEST DON'T PRINT ERROR SWITCH 


1472 


007334 


001004 








BNE 4S 


lUON'T PRINT 


1 4 ? 3 


V\Q 1 J SB 




015312 






TYPE fMUKNINT 








\ 01 U a SIM 


1 5052 










1475 




tt^ &I 10 10 '(* c 






4S 1 




InClUKni rKUn fnt iNIC-KUrl 


1476 


007 350 


IP wC. r lyo 


000006 




3$ 1 


ADD ^6rSP 


lRVPA(iH TNTPBllPT PDTNTFU^ DM HTaTK 
fDTr#»00 AmiCrlUf^l ~Ui™iwna yJ^H 0<Aw<^ 


1477 


007354 


V u 1? C tu ' 








WTS PC 




1478 


007356 


005237 


1 7 030 




1 S I 


INC NOtRLOG 




1479 


007362 


1 0^1405 












1 480 


w !w f J *t 


0327 7 7 


020000 


1 7 1622 




BIT ]^SM13fl?SMH 


fTCtlT nilw'T DkiTKiT ETDOnD iIliiTTru 
flCai UUN 1 rnlNl CKKUn awiiwri 




CI f5l ■» 1 7 3 














1 482 


Viv 1 3 ' H 


i 16) "1 4 W 10 


r) i D IP 3 •* 








fTvPP (un qtaTiic ctwdhd ^UDriD 


1483 


f7i M 7 a M Oi 


4 ty M H 


015052 










1 4" 5 


id u f mo*! 




1^ 1 








fCFT MAi\ l-ODnD tl 






Ml 37 17 


IP ICJ IM IC' i C 


017014 




Mnu alM D3Dti^TPV 
i^UV ^ 1 10 r "CKC 1 Pt T 


• ctT oiTTDv rniiMTtro 


1487 


'alt' f 'i CkI 


012777 


Oi ji w (ji 1 7 


17l5fa|fl 


PS • 




luti |Mt CKKUH uuUc. 


1488 


fTl 01 T 3*« 
IP / N C 


ni«a7 ^7 
1(3 v •* f 5 1 


0W 7122 








!TFt;T Pnu nnfuc ti ac 
I ICai r U" uUiiit rUMij 


1489 


W KJ f H -3 C 




000002 


171 550 




BIT 92>^f'X0B 


fWAa Inttt. A rAnllT t"«U'^ 


1 4^0 


00 T ^ 4 












INUfUUNT I NUc 




flini a 


ni (31/17 t7 


moi 3i?i /I (> 








iTciayUU KtrU'<l Inc. KAKilT CHEKU't 




So 10 f •* •* D 


000761 










JKtiaaUfc. TMt rUNCIiUN 




1^ 7 /I (Jl 


i 177 37 


1 7 153a 


Ot 1 (3ia7 3 






fdAVC 1 nt CKKUK UUUC O 5 1 A 1 Ud 






WO J f 3 f 


(51 1 Dl 01 7 3 






TST BSTAT 


fia inCKC A UCriNAlC UUUl. 




1 x 7 /I l» 3 


I HV f 










•Kin f" f1 M T T Ai 1 i fc 


1 4"o 


007464 


0137 05 


4 LI CS 7 3 








fAuJUai CKHUK CUuK lU rKUIJULfc AN tVcN AuOH 




fa fli ■» /1 7 a 


n 01 f?t ^ K 
k" w y lo 3 










# Ur 1 nC L. UM K t or UNu 1 N l> UUwN 1 Cn 


1498 


noij illy 


VI0O||9K>3 








ROR K5 




1 499 


a ra 7 Zi 7 




Pit 7 1 S R 

W 4 f J. 3 ri 








lAfMY fiAi AnnD nCi EruonU t/in aq Tui?DEr tc Kin (a 
»AUU Uni AUUK Ur cKitUn I.UU "•Cf AO 1 "CKt iO riiy 10 


I S00 














/ERROR CODE, THE CONTENTS OF R5 WiLL READJUST 


1501 














/ADDRESS TO CORRECT LOG, 


1502 


007500 


005215 








If«C CR53 


/INC THE CORRECT ERROR CODE COUNTER 


1503 


007502 


10a<|05 












1504 


007504 


032777 


020000 


171502 




BIT »SW13,#SWW 


/TEST PRINT ERROR SWITCH IN SwR 


1505 


007512 


001032 








BNE 2S 




1506 


007514 


100400 


01i3052 






TYP& fMCMUF 




1507 


007520 


101400 


015063 






typi: iMERHfcAUER 


/TYPE ERROR HEADER 


1508 


007524 


104400 


016142 






TYPt ,MPASS 


/TYPE PASSES COMPLETED AT ERROR 


153«5 


007530 


013737 


021012 


007542 




MOV PASCNTKjlS 




1510 


007536 


004537 


014446 






JSR K5,5GLDEC 




I5U 


007542 


000000 






l$l 


ap€is 




1512 


007544 


10«400 


015052 






TYPE , MCRLf 





MAlNOFC«i 1«02RXA«E MACYU 27(732} 20-SEP»76 15J16 PAGE 29 

0|RXAE«Pli GET VALUE FOR SOFTWARE SWITCH REGISTER 



1513 


007550 


104400 


015167 








TYPt ,MRXCS 




/TYPE COMMAND STATUS MbGISTER 


1514 


007554 


013746 


001120 






MOV 


FUNCTION, -CSP) / /SAVE 


FUNCTION FUR TYPEOUT 


1515 


007560 


104402 








TYPOS 


/ /GO 


TYPE"OCTA(. ASCII 


1516 


007562 


003 








.BYTE 


3 //TYPE 


3 OIGITCS) 


1517 


007563 


000 








.BYTE 


//SUPPRESS LEAPING ZEROS 


1518 


007564 


004737 


007716 








JSR PC#TYPAOR 




/TYPE ADDRESSES AND RUN CONDITIONS 


1519 


307570 


104400 


015052 








TYPE ,MCRLF 






1520 


007574 


004737 


010250 








JSR PCiTYPCODE 




/PRINT THE STATUS REGISTERS 


1521 


007600 


032737 


000020 


004120 


2$: 




BIT »BIT1, FUNCTION 




/WHAT DRIVE IS BEING USED 


1522 


007606 


001006 










BNE 6S 






1523 


007610 


012777 


000013 


171370 






MOV »RD0STAT,fRXCS 




/DRIVE 13 UEING USED 


1524 


007616 


004737 


007122 




5S! 




JSR PCiOONECK 




/TEST FOR DONE FLAG 


1523 


007622 


000404 










HR 7$ 






1526 


007624 


012777 


000033 


171351 


6$l 




MOV »RD1STAT,#RXCS 




/DRIVE 1 BEING USED 


1527 


007632 


000771 










BR 5$ 






1528 


007634 


032777 


000002 


171346 


7Sl 




BIT »2,#RXDB 




/WAS THERE A PARITY ERROR 


1529 


007642 


001403 










BEQ 3$ 




/NO, CONTINUE 


1530 


007644 


004737 


002016 








JSR PC, STATER 




/YES, REPORT THE ERROR 


1531 


007650 


000753 










BR 23 




/REISSUE THE COMMAND 


1532 


907652 


105777 


171332 




3SI 




TSTB #RXDB 




/WAS DRIVE READY SET 


1533 


007656 


100406 










BMI 1$ 




/YES RETURN 


1534 


307660 


104400 


015016 








TYPI ,MNOOHY 






1535 


307664 


104400 


015052 








TYPE ,HCRLF 






1536 


007670 


004737 


01M074 








JSR PCOELUNIT 




INO GO DELETE THAT UNIT 


1537 


007674 


062706 


0013004 




4SI 




ADO #4,SP 




/MOVE ERROR RETURN TO TOP OF STACK 


is3a 


007700 


000207 










RTS PC 






1539 




















1540 


007702 


104400 


016344 




R?(PWR! 




TYPE jMRXll 




/ONLY THE RXU POWER HAS FAILED 


1541 


007706 


104400 


014136 








TYPE ,SPOWEP 




/PRINT POWER FAILED 


1542 


007712 


000137 


002700 








JMP RESTART 




/GO TO RESTART 


1543 




















1544 




















154S 


007716 


104400 


014555 




TYPAORt 




TYPE ,MTRK 




/TYPE TRACK ADDRESS 


1546 


007722 


013737 


011360 


007734 






MOV TARGET, 3S 






1S47 


007730 


004537 


014446 








JSR R5,SGLDEC 






1548 


007734 


000000 






3SI 




OPEN 






1549 


007736 


104400 


014604 








TYPE ,MSECT 




/TYPE SECTOR ADDRESS 


1530 


007742 


013737 


012310 


007762 






MOV TStCT0R,2S 






1551 


007750 


042737 


177740 


007762 






8IC »177740,2S 




/CLEAR ALL BUT SECTOR ADDRESS 


15S2 


007756 


004337 


014446 








JSR R3,SGLDEC 






1533 


007762 


000000 






2SI 




OPEN 






1554 


007764 


104400 


013047 








TYPE ,U8LSP 






15SS 


007770 


032737 


000020 


010704 






BIT »BIT4,UNITSEL 




/WHITCH DRIVE IS BEING USED 


1536 


007776 


001003 










BNE IS 






155T 


010000 


104400 


01S106 








TYPE ,MUN1T0 




/TYPE UNIT 


1530 


010004 


000402 










BR TYPSEL 






1559 


010006 


104400 


0151 16 




l$l 




TYPE ,MUNIT1 




/TYPE UNIT 1 


1560 


010012 


104400 


015244 




TYPSEL! 




TYPE ,MPAT 




/TYPE PATTERN CODE 


1561 


010016 


013746 


010420 






MOV 


PAT, -CSP) //SAVE 


PAT FOR TYPEOUT 


1562 


010022 


104402 








TYPOS 


//GO 


TYPE— OCTAL ASCII 


1363 


010324 


001 








,8YTE 


I //TYPE 


I DIGITCS) 


1364 


S100S5 


000 








,BVTE 


1 /SUPPRESS LEADING ZEROS 


1565 


010026 


104400 


013047 








TYPE ,DBLSP 






1566 


010@32 


104400 


015250 








TYPE ,MTEST 




/TYPE TEST CODE 


1567 


010036 


013746 


002140 






MOV 


TE8T,«tSPJ //SAVE 


TEST FOR TYPEOUT 


is&s 


010042 


104402 








TVPQS 


IIGO 


TYPE— OCTAL ASCII 



DZRxaE.Pll 6kT V&LUE FOB SOFTWARt 8i«ilTCH WEGISTEw 



IS«39 


3100^4 


001 










1170 


010045 


000 








,6YTE 


ISM 


U10046 


104400 


015047 








I5f2 


010052 


104400 


015254 








1573 


010056 


013746 


01 1370 






MUV 


1574 


010062 


104402 








TYPOS 


1575 


010064 


001 








.BYTE 


1576 


010065 


000 








«8YTe 


1577 


010066 


000207 










1578 














1579 


010070 


000000 






astatj 




1580 


010072 


030000 






BSTAT5 




1581 














1582 


010074 


132737 


000020 


004120 


OtLUMiT ! 




1583 


010102 


001016 










158a 


010104 


104400 


015106 








1585 


910110 


104400 


015126 








1586 


010U4 


104400 


015240 








1587 


010120 


042737 


000200 


010704 






1588 


010126 


005737 


010704 








1589 


010132 


100020 










1590 


010134 


000137 


002726 




2SI 




1591 


010140 


104400 


015116 




3SI 




1592 


3101«4 


104400 


015126 








1593 


310150 


1 0a400 


0113240 








159^1 


010154 


042737 


100000 


010704 






i5«*5 


013162 


105737 


fe'.lt!l7 0« 








1596 


t?l0l66 


100762 










1597 


31017(3 


005137 


022514 








1598 


010174 


000137 


021062 




is: 




1599 














ua? 














U01 


010200 


U7737 


171004 


010070 


HOCOD£! 




1602 


310206 


013777 


00001 7 


170772 


2s: 




1603 


310214 


004737 


00n22 








1604 


01-5220 


032777 


000002 


170762 






1605 


010226 


001403 










1606 


010230 


004737 


0k52046 








1607 


010234 


0.30764 










1608 


010236 


117737 


170746 


010V272 


1$: 




1609 


010244 


104400 


015052 








1610 


010250 


104400 


015210 




TYPCOue J 




1611 


010254 


01374b 


01 0P70 






MOV 


1612 


010260 


J04402 








TYPOS 


1613 


010262 


003 








.BYTE 


i6U 


010263 


05!0 








,BYTt 


1615 


010264 


104400 


015040 








1616 


C10270 


104400 


015224 








1617 


310274 


313746 


010072 






MOV 


1618 


P10300 


1U4402 








TYPOS 


1619 


013302 


003 








.BYTE 


1623 


(310303 


000 








,8YTe 


1621 


010304 


104400 


015W52 








1622 


cii03ia 


000207 










1623 














1624 















TYPE lOBUSP 

TYP£ ,Mseu 

SEQUtN,»CSP3 



llTYPe 1 OlblTCS) 
IISUPPHESS LEADINii ZEROS 

;TYPE SEQUENCE COUE 
ijSAVE SEQUEN FOR TYPtOUT 
tlQO TYPE — OCTAL ASCII 
MTYPfc I DIGITCS) 
IISUPPHESS LEADING ZEROS 





BITB #aiT4, FUNCTION 
BNE SS 

TYPt ,MUN1T0 

TYPE ,HOELET 

TYPE ,U8LLF 

BIC «BIT7,UNIT3EL 

TST UNITSfcL 

BPL 15> 

JMP TESTStL 

TYPE ,MUNITl 

TVPt,HU£LtT 

TYPt ,U8LLF 

MIC i»BXT15,UNITS£L 

TSTd UNITSEL 

BNI 25 

COM SHORTHPT 
JMP tRUUMP 



MOVd ^HXDBiASTAT 
MOV »HIJ£R,?RXCS 
JSR HCOONtCK 
BIT »2i^RXDb 
HEO IS 

JSR PCiSTftTER 
BR 2S 

MOVd PNXDtl.BSTAT 
TYPt ,MCRLF 
TYPt fMASTAT 
ASTAT,-CSPJ 



ITEST FOR PRESENTLY USED UNIT 
lUNIT HAS BEEN DELETED FROM USE 



ICLEAR UNIT SELECTION BIT 

;WAS UNIT 1 SELECTED FOR USE 

JUNIT I NUT SELECTED GO DUMP ERROR REPORT 

JCONTINUE ON OTHER UNIT AT BEGINING OF TEST 

JUNIT 1 HAS BEEN DELETED FRUM USE 



icleah unit 1 selection bit 
iwas unit selected for use 
;yes cuntinue on unit m 

;SET short report FLAG 

;can»t continue type uut statistical report 



ISAVE THE A STATUS 

;read The b status register 

IWAIT FOR nONt flag 

;wAS THERE A PARITY ERRUR 

; NO, CONTINUE 

JYESfRtPORT THE PARITY ERROR 
fRETRY READING STATUS B 
;SAVE THE B STATUS CODES 



TYPt ,TaH 
TYPt ,MdSTAT 
BSTAr,«CSPJ 



TYPt ,MCRLF 
RTS PC 



JTYPE THE CONTENTS OF THE TwO STATUS REGISTERS 
nSAVt ASTAT FOR TYPEOUT 
HGO TYPE--UCTAL ASCII 
HTYPE 3 DIbIT(S3 
fiSUPPRESS LEADING ZEROS 



nSAVt BSTAT FOR TYPEOUT 
; ;G0 TYPE--UCTAL ASCII 

fJTYPt 3 DIGIT(S3 
nSUPPRESS LEADING ZEROS 
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1625 








1626 








1627 








1628 








1629 








1630 








1631 








1632 








1633 








1634 








1635 








1636 








1637 








1638 








1639 








1640 








1641 








1642 








1643 








1644 








1645 








1646 








1647 








1648 








1649 








1650 








1651 


010312 


142737 


000377 


1652 


010320 


005037 


010612 


1653 


010324 


005737 


010420 


16S4 


010330 


001003 




16S5 


010332 


012737 


000007 


1656 


010340 


013704 


010420 


16S7 


010344 


005304 




1658 


010346 


006304 




1659 


010350 


150437 


010360 


1660 


010354 


012704 


016606 


1661 


010360 


000777 




1662 


010362 


000137 


010422 


1663 


010366 


000137 


010434 


1664 


010372 


000137 


010444 


1665 


010376 


000137 


010506 


1666 


010402 


000137 


Q10S14 


1667 


010406 


000137 


010534 


1668 


010412 


000137 


010544 


1669 








1670 








1671 


010416 


000000 




1672 


010420 


000000 




1673 








1674 








1675 








1676 








1677 








1676 








1679 








1680 


010422 


005037 


010416 



IDECOOES THE DATA PATERN SELECTED IN THE SWR 
i 

IBITS 6, 7, AND a OF THE INITIAL SwR SELECTtH THE DATA PATTERN 
JTO BE USED AS FULLQWS: 
I 
t 
I 
I 
S 





BITS 


DATA PATTERN 




8 


7 6 












NO PATTERN SPECIFIED 


(FORCE RANDOM DATA) 





irf 1 


ALL ZEROS 







1 


ALL ONES 







1 1 


FLOATING ZERO 




1 





FLOATING ONE 




I 


1 


ALTERNATING BITS 




1 


1 


ALTERNATING PAIRS OF 


BITS 


I 


1 1 


RANDOM 





; 
I 

;note: all data patterns will be modified so the first byte will 

ICOnTaIN THE TRACK ADDRESS, THE SECOND BYTE WILL CONTAIN THE UNIT 
INUMBER AND SECTOR ADDRESS IN WHICH THE DATA IS WRITTEN, THE LAST 
ITWO SYTtS CONTAIN THE CHECK SUM NUMBERS, 



010360 GETPATTERNI 



BICB (!f377,»i!tBR0NPAT 

CLR SUM 

TST PAT 

BNE IS 

MOV »7,PAT 

MOV PAr,R4 

DEC R4 

A8L W4 

BI3B R4,*»aR0NPAT 
MOV »8UFADR+2,R4 
BR , 

JMP DATA0 
JMP OATAl 
JMP FLUAT0 
JMP FLOAT 1 
JMP PAT125 
JMP PAT314 
JMP HANDATA 



ICLEAR BRANCH OFFSET 

ISET UP FOR ACCUMULATION OF CHECK SUM 
;IF NO PATTERN SPECIFIED FORCE PATTERN 7 



;gft pattern bits 

lAOJUST FOR CORRECT OFFSET 
/INSERT OFFSET 

ISET UP ADDRESS OF FIRST BYTE 

IBRANCM BY OFFSET SELECTED 

1000 DATA BYTE 

1377 DATA BYTE 

IFLOAT A a THROUGH ALL I'S 

IFLOAT A 1 THROUGH ALL 0'S 

1125/052 DATA WORD 

1314/063 DATA WORD 

IRANOQM DATA BYTE 



0ATA8YTE! 
PATS 



ILOAO SOFTWARE BUFFER WITH ALL ZEROS 

t P 8 1 

CLR DATABYTE 
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1681 


010426 


004737 


I6SS 


010432 


000775 


1683 






1684 






1685 






1686 






168T 






1688 






1689 






1690 


010434 


112737 


1691 


010442 


000771 


1692 






1693 






I69a 






1695 






1696 






1697 






1698 






1699 


010444 


1 12737 


1700 


010452 


000261 


1701 


010454 


012702 


1702 


010460 


i ^3001 


1703 


010462 


005202 


1704 


010464 


004737 


1705 


010470 


000241 


1706 


010472 


0k)5702 


1707 


010474 


001401 


1708 


010476 


000261 


1709 


010500 


106157 


1710 


010504 


000763 


1711 






1712 






1713 






1714 






1715 






1716 






1717 


010506 


005037 


1718 


010512 


000757 


1719 






1720 






17 21 






1722 






1723 






1724 






1725 






1726 


010514 


112757 


1727 


010522 


004737 


1728 


i"10526 


1^5137 


1729 


010532 


0li)0773 


173f) 






1731 






1732 






1733 






1734 






1735 






1736 







JSR PCitOAU 
dh PATUEN 



;G0 LOAD THE DATA BUFFER 



ftOAO SOFTWARE BUFFER WITH ALL ONES 

f PBS 



OATAIS MOVB #377,UATABYTE 

HH PATGEN 

IFLOAT A a THROUGH ONES IN SOFTWARE BUFFER 



01041b FLOAT0J 
XPATGEN! 



MOVB #376,0ATABYTE 
SEC 

MOV »0,R2 
HCC 2$ 
INC R2 
JSR PCiLOAP 
CLC 

T3T H2 
BEO iS 
SEC 

ROLO DATABYTE 
»R 13) 



ISET UP A ONES FIfcLO 

ISET THt C eiT TO ROTATE THROUGH THE DATA 

ICLR R2 (CAN'T USE "CLR" AS IT CLEARS »C" 

IBR IF THE "C" BIT IS CuEARtO 

;SET R2 IF NOT 

IGO LOAD THE DATA BUFFER 

nS R2 NONZERO 

lYESi SET THE "C" BIT 



IFLOAT A 1 fHRQUGH ALL ZEROS IN SOFTWARE BUFFER 
I P a a 



FLOATI ! 



CLR UATABYTE 
BR XPATGEN 



»LOAU SOFTWAHt BUFFER WITH ALTERNATING I AND id FOR 
JONIE BYTE ANU THE CC^PLIMENT INTO THE NEXT 
i P » <s 



000125 
010564 



1410416 PAT125! 

xxpatgen: 



MUVB #125,UATAHYTE 
JSR RCiLOAU 
CUMb DATABYTE 
8W XXPATGEN 



; * (SEE NOTE 3ELUtM ) 



t * note: to make PATTERN 5 AND 6 COMRATABLE WITH THE RX8 PATTERNS 

fNOP THIS IfMSTWUCTION. (CHANGE THESE 2 LOCATIONS TO 0K!0da0) 

JTHIS CHANG£ 15 FOR INTERPROCESSUR RX** COMPATABILITY TESTING ONLY, 



MAINDEC 


-11-OZRXA-E 


HACYU 


27(7323 


DZRXAE, 


Pli 


GET VALUE FOR 


SOFTWARE 


1737 










1738 










1739 










1740 










1741 


010534 


112757 


K00314 


010416 


1742 


01054a 


000767 






1743 










1744 










1745 










1746 










1747 










1748 










1749 


010544 


004737 


012122 




1750 


010550 


113737 


012214 


010416 


1751 


010556 


004737 


010564 




1752 


010562 


000770 






1753 










1754 


010564 


063737 


010416 


010612 


1755 


010572 


113724 


010416 




1756 


310576 


022704 


017002 




1757 


010602 


001401 






1758 


010604 


000207 






1759 


010606 


005726 






1760 


010610 


000207 






1761 










1762 


010612 


000000 






1763 










1764 










1765 










1766 










1767 










1768 










1769 










1770 










1771 










1772 










1773 










1774 










1775 










1776 










1777 










1778 










1779 


010614 


032737 


000100 


010704 


1780 


010622 


001012 






1781 


010624 


105737 


010704 




1782 


010630 


100007 






1783 


010632 


042737 


040020 


010704 


1784 


010640 


052737 


000100 


010704 


1783 


010646 


000207 






1786 


010650 


005737 


010704 




1787 


010654 


100012 






1T68 


010656 


032737 


040000 


010704 


1789 


010664 


001006 






1790 


010666 


042737 


000100 


010704 


1791 


010674 


052737 


040020 


010704 


1792 


010702 


00020f 
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fLOAO SOFTWAHt ttUFFER WITH ALTERNATING PAIRS OF 1 ANU AND 
;C0MPLIMENT INTO THE NEXT 



PAT314! MUVi «314, DATABYTE 

BR XXPATGEN 

fLOAO SOFTWAHt BUFFER WITH RANOOH DATA PATTERN 
f P B ij OH 7 



JSR PCfRANGEN 
MOVB RANUM, DATABYTE 
JSR PC, LOAD 
BH HANUATA 

ADD 0ATa8YTE»SUH 
MOVB DATABYTE, (R4)+ 
CMP «BUFAUR+l 76,Ra 
HEQ IS 
RTS PC 
TST (SP)+ 
RT8 PC 



IGFT RANDOM NUMBER 



ACCUMULATE The pattern check sum 

JLOAD THE DATA BUFFER 

IHAVE 124 BYTES BEEN GENERATED 

IIF YES, RETURN TO TEST 

UF NO, RETURN TO PATTERN GENERATOR 

ITAKE PATTERN RETURN ADDRESS OF STACK 

IRETURN TO TEST 



;TEST for SELECTED UNITS, DRIVE READY, ANQ USED CONDITIONS 
MLSO CONTAINS A "HAD ERROR" FLAG TO BE TESTED AT EOP. 
ITHE BITS IN UNITSEL ARE USED AS FOLLOWS 
I 

IBITIS sUNiT 1 SELECTED VIA SWR 
IBIT14 BUNIT I USED BIT 
laiTB bThIS PASS HAD AN ERROR 
f8IT7 8UNIT SELECTED VIA SWR 
IBIT6 BUNIT USED BIT 

f8IT4 BUNIT SELECTION FOR FUNCTION WORD 



BIT »BIT6, UNITSEL 
8NE 1$ 

TSTB UNITSEL 
aPL IS 

BIC #40020, UNITSEL 

BIS »BIT6, UNITSEL 

RTS PC 

TST UNITSEL 

BPL 2S 

BIT »BIT14, UNITSEL 
BNE lis 

BIC »BIT6, UNITSEL 
BIS W40020, UNITSEL 
RTS PC 



IWAS UNIT a JUST USED 
lUNIT USED CHECK UNIT 1 
IWAS UNIT SELECTED 
INO GO TO UNIT 1 

fCLEAR UNIT 1 USED BIT AND FUNCTION UNIT B! 
ISET UNIT USED BIT 

IWAS UNIT 1 SELECTED 
INO RETURN 

IHAS UNIT 1 BEEN USED 
lYES RETURN 

ICLEAR UNIT USED BIT 

.'SET UNIT I USED BIT AND FUNCTION UNIT BIT 
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17"»3 
































J795 
















1796 


310704 


ia0000^ 






UNITStL: 






1797 
















1798 










f TEST 


THAT ALL UNITS HAVE BEEN 


ACCESSED 


1799 
















1800 


010706 


005737 


010704 




UONt! 


TST UNXTStL 


nS UNIT 1 SELECTED 


leei 


010712 


1 0000b 








BPL IS 


INO RETURN 


1602 


310714 


032737 


040000 


010704 




BIT »BITi4,UNlT8EL 


lYES MAS IT BEEN USEO 


1803 


31^722 


001302 








HnE is 


JYES RETURN 


180a 


010724 


362706 


P!00W02 






ADD ■»2,SP 


IBYPASS NOT DONE RETURE ON STACK 


1805 


010730 


000207 








RTS PC 




1806 
















1807 
















1808 


010732 


004737 


010706 




STOP I 


JSR PC»DONt 


;HAVE all DRIVES BEEN USED 


1809 


'?107 36 


005'B37 


00 7200 






CU" MCNTRl 




1810 


010742 


005237 


021042 






INC PASCNTW 


JKEfcP TOTAL NUMbEH OF PASSES 


1811 


010746 


005737 


01 1142 






TST LHAWCT 


JHAVE 72 EOP INDICATORS BEEN TYPED 


1812 


010752 


001005 








BNE iS 




1813 


?10754 


104400 


015(i552 






TYPE jMCHLF 


lYES DO A CRLF 


181a 


!?10760 


012737 


177670 


01 1 142 




MOV »-/2,,CHARCT 


PRESET CHARACTER COUNTER 


1815 


010766 


005237 


011142 




53>: 


INC UHARCT 




1616 


Z10772 


032737 


000400 


010704 




BIT »BlT8,UNiTSEL 


ITEST HAD ErtROR FLAG 


1817 


5^11000 


001405 








BEQ 2S 


,*N0 ERROR PRINT 


1616 


011002 


104400 


015057 






TYPE ,MEREUP 


{HAD EWRDK PRINT 7 


1819 


eU006 


000404 








BR 1* 




1820 


J11010 


104400 


0151^555 




at 


TYPE ,M£OP 


;PRINT EOP INDICATOR 


1821 


cU0ia 


1044(^0 


015061 






TYPE ,MABEUL 




1822 


011020 


104405 






l&i 


Ck,SwK 




1823 


011022 


032777 


041^1 Pi0((3 


1 70164 




HIT »5W14,#SWR 


JTEST EOP HALT SWITCH 


1824 


01 1030 


00141 7 








8ta CUNT22 




1825 


CI 1032 


104400 


015052 






TYPE ,MCHIF 




1826 


i;11036 


104400 


fllbl42 






TYPE ,MpASS 


;AT HALT UN PASS PRINT NUMBER OF PASSES COMPLETE 


1827 


011042 


013737 


0216^42 


01 1054 




MOV HAbCNTR,6$ 




1828 


311050 


004557 


01444b 






JSR NS^SGLUEC 




1829 


011054 


300000 






bs: 


OPEN 




1832! 


vn 1056 


i04a?0 


015«?52 






TYPE ,MCHLP 




1831 


■211062 


0:^0000 






HLTlb: 


HAUT 




1832 


01 1064 


005037 


fel 1 142 






CLW CHARCr 


.'THIS CAUSES A CRLF AFTER HALT AT E.O.P, 


1833 


fll 1070 


042757 


040500 


010704 


C0NT22 J 


BIC »4M500»yNIT5Et 


ICLEAR USED BITS, AND "MAD ERROR" BJT 


1634 


011076 


022737 


000007 


010420 




CMP »7,PAT 


tlf RANDOM DATA GtT NEW DaTA FOR OUFFER 


1835 


011104 


001002 








(SNE 2S 




1836 


^'11106 


004737 


010312 






JSR PCiGETPATTERN 




1837 


C 1 1 1 12 


005237 


00 7200 




2$ ! 


iNC HCNTRl 


;WAIT FOR THE EOP INDICATOR TO BE PRINTED 


1838 


011116 


001375 








tJNE ii 




18i9 


011120 


01 37?5 


gi00042 






HOV P<t42»R5 


.•ACTU ENU OF PASS HOOKS 


1840 


011124 


001405 








titQ HERE 




1841 


011126 


000005 








WfcScT 




1842 


011130 


004715 






LOGICALS 


JSR PC, (RbJ 




1843 


?lli32 


000240 








NOP 




1844 


311134 


300240 








NOP 




1845 


31 1136 


000240 








NOP 




1646 


01 1 140 


000207 






MEH£! 


RTS PC 




1847 
















1848 


fill 142 


000000 






CHARCT ! 







MAlNDEC-1 l-OZRXA-E MACYU 27(732) 20-SEP-7b l5:4b PAbE 35 

OZHXAE.Pll GET VALUE FOR SOFTWARE SWITCH REGISTER 



1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1658 
1859 
I860 
18bi 
1862 
1863 
1864 
1865 
1666 
1867 
1868 
1869 
1670 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1861 
1682 
1863 
1864 
1885 
1866 
1867 
1888 
1889 
1890 
1891 
1692 
1893 
1694 
1895 
1896 
1897 
1098 
1899 
1900 
1901 
1902 
1903 
1904 



011144 
011152 
F11156 
P11160 
011166 
'^11172 
011200 
011204 
5511212 
?'11216 
011224 
011232 
011240 
011244 
011252 



042737 
305737 
001005 
U2737 
105037 
113737 
005037 
113737 
005037 
113737 
013737 
16373r 
005237 
052737 
000207 



011254 
011262 
011270 
011274 
0U276 
011304 
0U310 
011312 
011314 



011320 
011322 



100200 
001200 

0ib0l 14 
001200 
0idl200 
011366 
001201 
011364 
001200 
01136b 
01 1364 
011356 
100200 



n ************************************* 

.'INITIALIZE TRACK SEQUENCE 



001200 inittrack: 

001201 

011360 is: 

01 1366 

011364 
011356 
01135b 



BIC »i00200,no 

TST 00 
BNE 1$ 

Mova »ii4,io 

CLRtt OU 

MUVO OU, TARGET 
CLR XIU 
MOVtJ ID,XID 
CLR XOD 
M0V*3 0U,XOD 
MOV xlDjTRKCNTR 
SUB XOU,TRKCNTR 
INC TRKCNTR 
BIS #100200, OD 
RTS PC 



******************** 



;CLfcAR FIRST USEO BITS 

ITEST CONTENTS OF I0,OD FOR 

?IO,OD SPECIFIED USE THEM 

INONE SPECIFIED SET ID TO MAXIMUM 

JSET 00 TO MINIMUM 

UNIT 00 AS PRESENT TRACK 

UNIT WORKING ID AND OD LOCATIONS 



fSET UP NUMBER OF TRACK MOVEMENTS 
JSET FIRST TIME BITS IN ID,OD 



;;******************«******************************************** 

;TEST FOR HEAD SEQUENCE SELECTED BY INITIAL SwR SETTING 
? 

IBITS 0,1, ANU 2 OF THE INITIAL SWR SELECTED THE TRACK SEQUENCING 

;T0 BE FOLLOWED AS INITICATED BELOW 

f 

J BITS SEQUENCE 



t 


9 


NO SEQUENCE SPECIFIED (DEFAULT TO SEQ 7) 


( 


3 1 


INCREMENT FROM OD TO ID 


1 


1 


DECREMENT FROM ID TO 00 


1 


i 1 


DO PREVIOUS 2 SEQUENCES 


1 i 


9 


BOUNCE BETWEEN ID AND OD 


I V 


3 I 


DECREASING BOUNCE 


1 1 


I 


STROBE BETWEEN 00 AND DECREMENTING 10 


1 ] 


I 1 


RANDOM TRACK SELECTION 



r ;****<****★****************************************************** 



011362 
011320 



113737 011360 

142737 000377 

005737 011370 
301003 

012737 000007 011370 

013704 011370 
005304 
006304 

150437 011320 



000777 

000137 011372 



MOVO TARGET, PRESTRK 
BICB «377,##BR0NTRK 

TST SEUUEN 
BNE IS 

MOV »7,SEQUEN 
MOV SEaUEN,R4 
DEC H4 
ASL R4 

8IS8 R4,##BR0NTRK 



;RESET to PRESENT TRACK 
ICLEAR OUT BRANCH OFFSET 

IIF NO SEQUENCE SPECIFIED FORCE SEQUENCE 7 



IGET SEQUENCE BITS 
lAOJUST FOR CORRECT OFFSET 



ITHIS BR INST, IS MODIFIED BY THE TEST CONDITIONS 
ISELECTED ,T0 BRANCH TO ONE OF THE SEQ, BELOW 



I8RANCH BY OFFSET SELECTED 
IINCREMENT 



OIPxaEsPII SET VALUE FOR SOFTWARE SWITCH REGISTER 



1903 


01 1326 


000137 


011436 




JMP 


SE.U2 


I0ECR6M6NT 


1906 


011332 


00013T 


01 1^60 




JMP 


S6U3 


1 INCREMENT/DeCRfeMtNT 


1907 


011336 


000137 


011584 




JMP 




f BOUNCE lU TO OD 


19S98 


011342 


000137 


011bl0 




JMP 


StU5 


lOECREASlNG BOUNCE 


1909 


0113^6 


000137 


0117^2 




JMP 




ISTRObE 


19le 


011312 


000137 


0ia02a 




JMP 


SEy7 


^RANDOM 


1911 
















i9ia 


011356 


000000 




TRKCNTRI 









1913 


ill360 


000000 




TARGSTI 









191fl 


01i36g 


000000 




PRBSTRK! 









19IS 


011364 


000000 




XUUl 









1916 


011366 


000000 




XIDI 









191? 


211370 


000000 




SEQUENI 










1913 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1920 
1929 
1930 
1931 
1932 
1933 
193« 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
19«3 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
19S4 
1955 
1956 
1957 
19S8 
1939 
1960 



011460 
011464 
311466 
0il47<} 
311500 

aiiS04 

011510 
011514 
C 11 520 

011522 



011372 042737 

011400 123737 

011406 001004 

011410 113737 

311416 000461 

011420 005237 

011424 Ba045b 



011426 105737 

011432 100007 

011434 042737 

011442 113737 



011450 
011452 035337 
011456 000441 



105737 
1000i?7 
042737 
005337 
036337 
013700 
16370^ 
163700 
002342 
000723 



1 1 *lS*«t* ***************** 

IINCREMENT FHOM OO+l TO ID AND RETURN TO OD 



100200 001200 
011366 011362 



00120(3 011360 



BIC »100200,OD 
CMPtJ XID,PRE8TRK 
BNE IS 

MUVO UUfTAHGET 
BR NfcWTRK 

INC TARGET 
BR NtWTRK 



ICLEAR FIRST TIME BITS 
{PRESENT TRACK EQUAL TO ID 
;nO get new TRACK 
lYES RETURN TQ DO 

» NEwTRK INCREMENTS THE TRACK MOVED TO COUNTER 
lANO RETURNS TO NEXT TRACK 
lADO 1 TO TARGET TRACK 



i A ft * * A <t * * * «i « * * * * * 



lid0200 001200 

01136b 011360 



JDECREMENT FWOM lu TO 00 
f S 2 

TSTB 10 
BPL IS 

BIC »100200,OD 
MOVa XID, TARGET 
»R NtWTRK 
DEC TARGET 
Hk NtWTRK 



JFTRST TIME BIT SET 

JNO GET NEXT TRACK 

JYES CLEAR FIRST TIME BITS 

;go to id 

JMOVe TO NEXT TRACK 



/INCREMENT THEN DECREMENT TRACKS 



100200 001200 

Rl 1356 

011356 

«lli66 

01 1364 

011 556 



TSTtt OU 
t»PL IS 

BIC »1M0200,UD 
DEC TRKCNTK 
ASL TRKCNTR 
MUV XIU,R0 
SUB XOD,R0 
sua TRKCNTR, R0 
»r,F SEU2 
BR SEQl 



ICHECk first time BIT 
INOT FIRST TIME THROUGH 
ICLEAN FIRST TIME BITS 

/RESET TRACK COUNTER TO DOUBLE THE COUNT 

/GET DIFFERENCE BETwEEN ly AND OD 

; IS TRACK COUNTER HALF DONE 

; YES GO DECREMENT TRACKS 

; NO CONTINUE INCREMENTING TRACKS 



MAINDEC-I 1-DZRXA-E MACYl 1 27 (732) 20-SEP-76 1514b 

OZRXAEgPll GET VALUE FQR SOFTWARE SWITCH REGISTER 



19bi 








1962 








1963 








1964 








1965 








1966 








1967 








1968 


011524 


042737 


100200 


1969 


011532 


123737 


011362 


1970 


011540 


001404 




197i 


B11542 


113737 


001200 


1972 


311550 


000404 




1973 


011552 


113737 


k}0l201 


1974 


Bl 1560 


000400 




1975 








1976 








1977 








1978 








1979 








1980 








1981 


011562 


013705 


011360 


1982 


011566 


006305 




1983 


011570 


006305 




1984 


011572 


062705 


01?b60 


1985 


011576 


062715 


000001 


1986 


011602 


005565 


000002 


1967 


011606 


000207 




1988 








1989 








1990 








199| 








1992 








1993 








1994 








1995 


011610 


105737 


001201 


1996 


011614 


100011 




199T 


011616 


005237 


011356 


1998 


011622 


142737 


000200 


1999 


011630 


113737 


011366 


2000 


011636 


000751 




2001 


011640 


105737 


001200 


2002 


011644 


100007 




2003 


011646 


142737 


000200 


2004 


011654 


113737 


011364 


2005 


011662 


000737 




2006 


011664 


132737 


000001 


2007 


011672 


001006 




2008 


011674 


005237 


011364 


2009 


011700 


113737 


011364 


2010 


011706 


000405 




2011 


011710 


003337 


011366 


2012 


011714 


113737 


011366 


2013 


311722 


123727 


011356 


SiH 


011730 


001003 




2015 


011732 


113737 


001200 


2016 


^11740 


00@710 





4 * <f ft * « » * * * * A * * 



J60UNCE BETWtEN lU AND OD ONLY 



BIC »100200,OD 
QMPti PHtSTRK.OD 
BEO IDNEXT 
M0V8 OD,TAKG£T 
BR NtwTRK 
MOVB ID, TARGET 
BR NtWTRK 



fCLEAR THE FIRST TIME BITS 
JDIO IT JUST DO OD 
J YES 

INO GO TO OD TRACK 
;G0 DO ID TRACK 



I I ft ************** 

/INCREMENT THE "HEAD MOVED TO" COUNTERS AND RETURN 
{THROUGH HERE FROM ALL TRACK SEQUENCES 



MOV TARGET, R5 
ASL Rb 
ASL R5 

ADO »HDMDVE,R5 
ADD #1 , CR5J 
ADC 2CR53 
RTS PC 



IGET TRACK ADDRESS 

{MUITIPLY BY 4 TO DOUBLE PRECISION 
{INTERLEAVE COUNTER ADDRESSES 
{ADD ON ADDRESS OF HEAD MOVE COUNTER 
{INC COUNTER 

{ADD CARRY TO HIGH ORDER wORO 
{RETURN TU ACCESS NEXT TRACK 



{l****************************************^********^************* 

{BOUNCE BETWEEN DECREASING ID AND INCREASING OD 
{ 5 8 5 



001201 
011360 



001200 
011360 

011356 
011360 

011360 

000001 

011360 



3SI 

LA3TTRKS 



T8TB ID 


{TEST FIRST TIME BIT OF ID 


8PL IS 




INC TRKCNTR 


{ADJUST FOR ONE EXTRA MOVEMENT TO TRK 


BICtJ #200,10 


{CLEAR FIRST TIME BIT OF ID 


MOVB XID, TARGET 


{MOVE TO ID 


BR NtWTRK 




TST6 00 


{TEST FIRST TIME BIT OF OD 


BPL 2S 




BICB #200, UD 


{CLEAR FIRST TIME BIT OF 00 


MOVB XOO,TAHGET 


{MOVE TO OD 


BR NEwTRK 




BITB »l, TRKCNTR 


{TEST COUNTER FOR ODD OR EVEN 


BNE AS 


{ODD MOVE TO NEW ID 


INC xoo 


{EVEN ADD 1 TO OD 


MOVB XUO, TARGET 




BR UASTTRK 


{SEE IF LAST TRACK IS BEING ACCESSED 


DEC XIU 


{SUBTRACT 1 FROM 10 


MOVB XID, TARGET 




CMP8 TRKCNTR, #1 




BNE XRtTURN 




MOVB OU, TARGET 


{THIS IS LAST TRACK RETURN TO 00 


HR NtWTRK 





OE!?XAEsPU G£T VALUt FO^ SOFTWARE SWITCH RfeGISTEH 



20iT 






idlB 












2020 






202i 






2022 






2023 


0U7a2 


105737 


202a 


011746 


100007 


2025 


01 1750 


042737 


2026 


011756 


005337 


2027 


PU762 


006337 


2028 


011766 


123737 


2029 


0U774 


001006 


2030 


011776 


113737 


2031 


212004 


005337 


2052 


? 120 10 


000664 


2033 


012012 


113737 


2034 


012020 


000660 


2035 






2036 






2037 






2038 






2039 






20<I0 






20*»i 






20^2 






20«3 






20«a 


012022 


012737 


2015 


CI 20 30 


004737 


20<»6 


yi2f'34 


C«2737 


2017 


012042 


123737 


20«S 


012050 


01(53404 


2019 


012052 


163737 


20S0 


212060 


a0077(jj 


205i 


012062 


123737 


2052 


912070 


0020^1 


2053 


012072 


063737 


20t>a 


012100 


Pd0770 


20S5 


012102 


123737 


2056 


k51?U0 


001714 


2057 


312U2 


idl3737 


2058 


012120 


000620 


2059 






2060 


PI2122 


m 2 7 


2061 


^12126 


063700 


2062 


«12132 


063700 


2063 


012136 


042700 


2064 


012142 


000241 


2065 


012144 


336100 


2066 


312146 


006H«0 


2067 


312150 


31003 7 


2068 


PI2154 


005000 


2069 


^12156 


313700 


2070 


012162 


006000 


207 J 


C 12 164 


006£)id0 


2072 


012166 


063700 



0fe5l200 

100200 
01 135b 

01 135b 
0U362 

011366 
011366 



1 (r^H20i^' 

012122 
1 7 7fc00 
012211 

im366 

012214 

C51 1361 

012211 

012214 



012210 
012212 

170000 



012210 
012212 



iSTROet BETSNtEN OU fkHQ DECREASING ID 
I safe 



001200 
011360 



001200 «U360 DONEXTS 



T3?e au 

BPL IS 

8IC 8100200,00 
DEC TRKCNTR 
ASL TRKCNTW 
CHPi PKESTHKiOD 
BNE UDNEXT 
MOVa XIDfTARGET 
DEC XIU 
BR NtWTHK 
MOVb OUjTAWGET 
BR NtWTRK 



;CHtCK FIRST TIME BIT 

INOT FIRST TIME 

fWAS FIRST TIME, CLEAR THE BITS 

PRESET COUNTER TO OOUtiLE THE NUMBER OF TRACKS 

;WA5 00 JUST ACCESSED 
INO GO TO OD 

JOECREASING 10 IS NEXT TRACK 



;0D IS NEXT TRACK 



;RAN0UM SEQUtNCINb OF TRACKS 

J FOR PROPER USE OF RANDOM TRACK SEQUENCING, THE OD/IU LIMITS 
JSHOULO NOT WE SET FOR LESS THAN HALF ThE TRACKS, 
S s oi< 7 



001200 Sty?! 

«12211 

011360 IDCQf^ 
012211 

011361 UDCOH 
012211 

011362 HRtSC 
01 1360 



aiC »100200,OU 
JSR HCRANGEN 
HIC »1 ^ 7 6(^15, RANUM 
CMP6 RANUM,XID 
PLE OncOMP 
SUB XIU,RANUM 
BR lUCOMP 
CMPtJ RANUM,XOy 
HGE PRtSCMK 
Aun XOO,RANUM 
BR UUCUMP 

CMPB HANUM,PRESTRK 
BtO 5EU7 

HOV HANUM, TARGET 
HR NtwTRK 

MOV «l,R0 
ADD HANl,Rli3 
ADO NAN2,W0 
BIC »1/0000,R0 
CLC 

ROL KM 

RUL N0 

MOV R0,RANi 

CLR Nia 

MOV KAN2,Ka 

RUR H0 

ROR R0 

AuO KANi,H0 



;CLEAW THE FIRST TIME BITS 

IGET A RANDOM NUMBER 

.'CLEAR ALL BUT LOW 7 BITS 

?IS RANUM LARGER THAN ID ADDRESS 

|NO,RANUM IS LESS OR EQUAL TO ID 

> YES, SUBTRACT ID FROM IT 

;SEE IF RANUM IS NOW UK 

;IS RANUM SMALLER THAN OU ADDRESS 

INO, RANUM IS GREATER OR EQUAL TO UO 

IYES,AnD on TO RANUM 

JSEE IF RANUH IS NOw UK 

;IF RANUM EQUALS PRESENT TRACK 

IGET ANOTHER RANDOM NUMBER 

;RANUM OK PUT IT IN TARGET TRACK 



MAINDEC-I 1«UZRXA»E MACYll 27 (732) 2k3-SEP-"76 15116 

DZRXAEsPll GET VALUE FOR SUFTWARE SWITCH REGISTER 



2073 


5512172 


042700 


170I1500 


2074 


012176 


010037 


012212 


2075 


£12202 


310(d37 


012211 


2076 


012206 


000207 




2077 








2078 


012210 


000000 




2079 


012212 


000000 




2080 


P12214 


000000 




2081 








20B2 








20B3 








2084 








2085 








2086 


f!l2216 


0(tf5737 


001202 


2087 


312222 


001035 




2088 


212221 


005237 


001202 


2089 


^12230 


1 12737 


000032 


2090 


'«312236 


1 13737 


001203 


20"?1 


P12214 


163737 


001202 


2092 


^12252 


005237 


012306 


2093 


212256 


105037 


012307 


2094 


f^l2262 


113737 


001202 


2095 


312270 


163737 


012311 


2096 








2097 


312276 


012737 


000001 


2098 


012304 


003207 




2099 








2100 


012306 


000000 




21B1 


012310 


000030 




2102 


012312 


000000 




2103 


012314 


000003 




2104 








2105 


012316 


063737 


012314 


2106 


012324 


123737 


001203 


2107 


312332 


002010 




2108 


012334 


113737 


0U1202 


2109 


012312 


063737 


012312 


2110 


012350 


005237 


012312 


21U 


012354 


000207 




2112 








2113 








2114 








2115 








2U6 








2U7 








2118 








2119 








2120 








2121 








2122 








2123 








2124 








2125 








2126 








2J27 








2128 









001203 
012306 
012306 



012310 
012310 



K)12310 
012310 



012310 
012310 



BIC »U0a00,R0 

MOV H0,RAN2 
MOV W0, RANUM 
RTS PC 

RANH la 
RAN2! M 
RANUM} a 



;SECTOR Initialization and selection 



INITSECTORI 



SECCNTR! 

tsector: 
intleavi 

THREEl 
GETSECTORl 



TST FIRST 
BNE IS 
INC FIRST 
MOVB rti2,LAST 
MOVB LAST, SECCNTR 
SUB FIRST, SECCNTR 
INC SECCNTR 
CLRB SECCNTR+1 
MOVB FIRST, TSECTOR 
SUB THREE, TSECTOR 

MOV »l,INTLEAV 
RTS PC 



ADD THREE, TSECTOR 
CMPB LAST, TSECTOR 
BGE IS 

MOVB FIRST, TSECTOR 
ADD INTLEAV, TSECTOR 
INC INTLEAV 
RTS PC 



;test first and last for w 
fsectors specified use them 
?none specified set first to 
;set last to maximum 
jset up sector counter 



/PUT FIRST SECTOR IN TARGET SECTOR 

laUB 3 FROM TSECTOR AS FIRST TIME THROUGH 

UT GETS ADDED BACK ON. 

ISET INTERLEAVE OFFSET 



lADD 3 FOR INTERLEAVING 

INEW SECTOR IS WITHIN LIMITS 
IRESET TARGET SECTOR TO INTERLEAVE 
lAOD ON INTERLEAVE OFFSET VALUE 
rUP DATE THE OFFSET VALUE 



,SBTTL TYPE ROUTINE 



MROUTINE TO TYPE ASCIZ MESSAGE, MESSAGE MUST TERMINATE WITH 
MTHE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A 



MNOTEl! 
MN0TE2? 
;*N0TE3: 

I* 

MCALLJ 
Ml) USING 
I* TYP 
|*0R 

yt 



i BYTE, 
LINE FEED, 



SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER, 
5FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED, 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 



TRAP INSTRUCTION 
,MESADR 



HMESAOR IS FIRST ADDRESS OF AN ASCIZ STRING 



TYPE 
MESADR 



MAINDEC»U»DZRXA-E MACYll £7(7383 20«SEP«7fe l5!<Jb PAUI- 40 

DZRXAE.Pl I TYPE ROUTINE 



8ia9 










1 * 








mz 




















012356 


10S737 


012605 




iTYPE s 


TST8 


STPFLG 


nJS THERE A TERMINAL? 




012362 


100002 








BPL 


IS 


flBR IF YES 


2133 


012364 


000000 








HALT 




IIHALT HERE IF NO TERHINAL 


2134 


012366 


000407 








8R 


3S 


1 J LE A VE 


2^35 


012370 


010046 






isi 


MOV 


H0»" ISPJ 


IISAVE R0 


2136 


012372 


017600 


000002 






HOV 


92 CSP} 1 R0 


IIGET AQOHESS OF ASCIZ STRING 


2137 


012376 


1 12046 






2Si 


MOVB 


(R0 J 1 (SP J 


?|pySH CHARACTER TO BE TYPED ONTO STACK 


2138 


012400 


001005 








EtNE 


4S 


IfBR IF IT ISN'T THE TERMINATOR 


2139 


012402 


005726 








TST 


CSP J 4' 


JJlf TERMINATOR POP IT OFF THE STACK 


2H0 


012404 


012600 






60S : 


MOV 


tSP) * iHd 


H RESTORE R0 


2H1 


012406 


0627 16 


000002 




5&l 


ADD 


#2r ISP) 


n ADJUST RETURN PC 


2H2 


012412 


000002 








RTI 




1 ; RETURN 


2J43 


012414 


1227 16 


00001 1 




4$ t 


CMPB 


»MT» ISP] 


; ; BW ANCH IF <HT> 


2144 


012420 


001430 








BEQ 


8$ 




2145 


012422 


122716 


000200 






CMPB 


»CRLP 1 ISP) 


n^RANCH IF NOT <CRLF> 


2146 


012426 


001006 








BNE 


5S 




2147 


012430 


005726 








TST 


CSP) ♦ 


IJPOP <CR><LF> EQUIV 


2148 


012432 


104400 








TYPE 




nTYPt A CR AND LF 


2149 


012434 


012b07 








SCRLF 






2150 


ei2436 


105037 


012572 






CLRe 


SCHAHCNT 


IICLEAR CHARACTER COUNT 


2151 


012442 


000755 








BR 


2S 


IfGET NEXT CHARACTER 


2152 


012444 


004737 


01252b 




531 


JSR 


PC, STYPEC 


IIGD TYPE THIS CHARACTER 


2153 


012450 


123726 


012604 




bSS 


CMPB 


SFILLCi CSP J ♦ 


Ills IT TIMfc FOR FILLER CHARS,? 


2154 


012454 


001350 








BNE 


2S 


IflF NO GO GET NEXT CHAR, 


2155 


012456 


013746 


012602 






MOV 


SNUtL 1 - (SP) 


IfGET # OF FILLER CHARS, NEtDED 


2156 
















JJAND THE Null CHAR, 


2157 


012462 


105366 


000001 




7S S 


DEC8 


1 CSP J 


IIDOES A NULL NEED TO BE TYPtU? 


2158 


012466 


00277ia 








BLT 


6$ 


If BR IF NO — GO POP THE NULL OFF OF STACK 


2l59 


012470 


0047 37 


012526 






JSR 


PC# STYPEC 


};GU TYPE A NULL 


2160 


212474 


105337 


012572 






DEC8 


SCHAKCNT 


IIUO NOT COUNT AS A COUNT 


2161 


012500 


0007 70 








BR 


T$ 


! I LOOP 


2162 


















2163 










.•HORIZONTAL TAB 


PROCfcSSOR 




2164 


















2lb5 


012502 


1 12716 


C00040 




B$( 


MQV8 


«• , CSP) 


fJREPLACfc TAB WITH SPACE 


2166 


012506 


034737 


012526 




9$I 


JSR 


PC, iTYPEC 


;|TYPt A SPACE 


2167 


012512 


132737 


C^fei0007 


012572 




fllTtt 


»7 , S>CNARCNT 


IISRANCH IF NOT AT 


2168 


012520 


001372 








BNE 


9S 


||TAB STOP 


2169 


012522 


00572b 








TST 


CSP) ♦ 


IIPOP SPACE OFF STACK 


2170 


012524 


000724 








Bh 


2$ 


IIGET NE.XT CHARACTER 


2171 


012526 


105777 


000044 




STYPEC: 


TSTb 


0STPS 


IIWAIT UNTIL PRINTER IS READY 


2172 


012532 


100375 








BPL 


STYPtC 




2173 


012534 


116677 


000002 


1^00036 




MOVB 


2(SP) fPSTPO 


IILOAD CHAR TU OE TYPED INTO DATA REG. 


2lU 


312542 


12276b 


00^*1^15 


000iil02 




CMPB 


»C8,2CSP) 


;|1S CHARACTER A CARRIAGE RtTURN? 


2175 


P12550 


001003 








8NE 


13. 


;;BRANCH IF NO 


2176 


012552 


10503/ 


012572 






CLRB 


SCHAKCNT 


f ; YES--CLEAR CHARACTER COUNT 


2177 


012556 


000406 








BR 


STYPtX 


IIEXIT 


2178 


E12560 


122766 


000012 


000002 


a: 


CMPB 


ffLF,2CSP) 


Ills CHARACTFR A LINE FEED? 


2179 


012566 


0014 02 








BEQ 


STYPkX 


1 {BRANCH IF YES 


2180 


012570 


105227 








INCB 


CPO* 


IICOUNT THE CHARACTER 


2161 


012572 


000000 






SCH&HCN1 


r ! .WORD 





llCMARACTtR COUNT STORAGE 


2182 


012574 


000207 






STYPEX! 


RTS 


PC 




2183 


















2164 


312576 


177564 






STPS! 


.WORD 


I775ba 


IITTY PRlNTtR STATUS REt>, AUDKESS 
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2185 


012600 


177566 


STPBI 


,MORO 


1775bb 


IITTY PRINTER BUFFER REG, ADDRESS 


2186 


312602 


000 


iNULL! 


• BYTE 


(3 


1 {CONTAINS NULL CHARACTER FOR FILLS 


2187 


012603 


002 


SFILLS! 


.BYTE 


2 


IICONTAINS # OF FILLER CHARACTERS REQUIRED 


2188 


012604 


012 


SFILLC: 


.BYTE 


12 


IIINSERT FILL CHARS, AFTER A "LINE FEED" 


2189 


012605 


000 


STPFLGJ 


.BYTE 





{{"TERMINAL AVAILABLE" FLAG (l>IT«07>B0aYES) 


2190 


012606 


077 


SUUES: 


.ASCII 


"?» 


{{QUESTION MARK 


2191 


012607 


015 


SCRLF! 


.ASCII 


<15» 


IICARRAIGE RETURN 


2192 


012610 


000012 


SLFJ 


.ASCIZ 


<!?> 


{{LINEFEED 


2193 






.SBTTL 


BINARY 


TO OCTAL 


CASCII) AND TYPE 



2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 



2216 


012612 


0l7b46 


000000 




STYPOSI 


MOV 


P(SP) ,-CSP) 


{{PICKUP THE MODE 


2219 


012616 


116637 


000001 


013035 




MOVB 


I CSP) ,S0FILL 


{ILOAO ZERO FILL SWITCH 


2220 


012624 


112637 


01303.7 






MOVB 


(SP)*,S0M0DE+1 


{{NUMBER OF DIGITS TO TYPE 


2221 


012630 


062716 


000002 






ADO 


i»2, CSP) 


{{ADJUST RETURN ADDRESS 


2222 


012634 


000406 








BR 


STYPON 




2223 


012636 


112737 


000001 


013035 


STYPOCI 


MOVB 


»1,»WFILL 


{{SET THE ZERO FILL SWITCH 


2224 


012644 


112737 


000006 


013037 




MOVB 


#6,*0MUDE*l 


IISET FOR SIX(6) DIGITS 


2225 


012652 


112737 


000005 


013034 


STYPONJ 


MOVB 


«5,*UCNT 


{{SET THE ITERATION COUNT 


2226 


012660 


010346 








MOV 


R3,«CSP) 


IISAVE R3 


222? 


012662 


010446 








MOV 


Rtt,- CSP) 


{{SAVE R4 


2228 


012664 


010546 








MOV 


R5,-CSP) 


{{SAVE R5 


2229 


012666 


113704 


013037 






MOVB 


SOMOUEti , R4 


{{GET THE NUMBER OF DIGITS TO TYPE 


2230 


012672 


005404 








NEG 


R4 




223| 


012674 


062704 


000006 






ADO 


«6,R4 


{{SUBTRACT IT FOR MAX, ALLOWED 


2232 


012700 


110437 


013036 






MOVB 


R4,SUM0DE 


{{SAVE IT FOR USE 


2233 


012704 


113704 


013035 






MOVB 


»0F1LL,R4 


IIGET THE ZERO FILL SWITCH 


2234 


012710 


016605 


000012 






MOV 


12(SP) ,R5 


1 {PICKUP THE INPUT NUMBER 


2235 


012714 


005003 








CLR 


R3 


1 {CLEAR THE OUTPUT WORD 


2236 


012716 


006105 






ISI 


ROL 


R5 


{{ROTATE MSB INTO "C" 


2237 


012720 


000404 








BR 


3S 


MGQ DO MSB 


2238 


012722 


006105 






2S1 


ROL 


RS 


{{FORM THIS DIGIT 


2239 


012724 


006105 








ROL 


R5 




2240 


012726 


006105 








ROL 


R5 





{ I *************************************************************** 

MTHIS ROuTINt IS UStU TO CHANGE A 16-BIT BINARY NUMBER TO A b-UlGIT 

l*octal (ascii) number and type it, 

{ *$typos—— enter hert to sfctup suppress zeros and number of digits to type 
{*call: 

m mov num,-csp) {{number to be typed 

i* typos {{call for typeout 

{* .byte n {{nal to 6 for number of digits to type 

I* .BYTE M {{Mai OR 

I* f{l"TYPE LEADING ZEROS 

I* {{0aSUPPRESS LEADING ZEROS 

I* 

{*STYPON — — ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

{*STYPOS OR STYpUC 

MCALLI 

l« MOV NUM,-CSP) {{NUMBER TO BE TYPED 

I* TYPON {{CALL FOR TYPEOUT 

1* 

{*$TYPOC— ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
{*CALLI 

M MOV NUM,-CSP) {{NUMBER TO BE TYPHU 

l« TYPOC {{CALL FOR TYPEOUT 
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22** I 


fli i 3 f "2 ,J* 


1 05^ 5 












22*^2 


0127 32 


lu 1^ D 4 tp 3 








Rs'^^ 


ffUCI W3U Ur IriiO U4U4I 


CC** J 


012734 


^^^^^.^ 


4 3 W 3 O 






i9 U rn u y Ct 






0127 40 


1 000 1 b 






uni 
"Pi. 




tlHD TP Kin 




012742 


ffl /I 3 7 I'S I 


17 7 






« t t 1 T J iA Q4 
">4f''f*'»n3 




22''*b 










BMP 




iitkqt p no (A 


22'*7 


1 2 ' J0 


:\ I'lK K ■» i)i 11 






T*iT 




#»OUrrKtaa IniO So f 




012752 


001 403 






HP n 




1 1 OK ir "to 




1 2T54 


005204 




4 


t Mr 


U 


ffinrtKi'T 4iiDDOiP(«c AkiVMnDi^ t^^Q 


2230 


i3 1 275b 


0527 03 


k' 6 




W Q 








012762 




W 4 




RT C 




|l"AIVi- Aai„44 ir iMU 1 SUriCAUT 


22552 


1 27 66 


11033/ 






n R 




lIuAVC. rUK lYriNS 


c e J 3 




1 Ifl M t| '0 10 


Ml < Jl 3 
la 4 J v) <J C 




TYPE 




llfin TVPP THIS ntUTT 
IfUU iTrc IniO uiuil 




"1277b 




01 3034 




OECB 


snp\iT 


IfPnllMT SV 1 
ffwUUiNi ilT i 


22^5 




fS W 1 1 /J 7 










I^OK ir nlJKC. lU UU 


22!26 


Vj \ 367lo4 


0024?2 






PUT 




1 1 PK i r UuNt 




ill ^ 01 lii w 


f?l 3 ^ 
low JC 








Mil 


f 1 ilNOUrtC. UAOl Uiuil iaN | A oLAfNIV 




U 1 3 1 10 


f?i tA tA y iiii 








24 


tfKn nn tuc i aqt ntfiTT 
IfUU UU InC UAai Uiuil 


c2~T 


013012 








MOV 


(SPJ +,K5 


fffDC<lTnD(^ 

# # " t w 1 UKt K J 


22^0 


013014 


n 1 3hOta 
iu 1 C D V ' ** 






MOV 


tSPJ+,H4 


} } RESTORE R4 


22^1 


013^16 


M I c b vf" 3 






MOV 


ISP) ♦,K3 


9 • D c no C Ol 
# » K 1 5 1 UKfc R J 


22^2 




016666 


™ C 


000004 




21SP) ,4 tSP) 


r > an 1 Inc. a 1 Aun r UK KtiUKINilMli 


22b3 


!^ ^ »^ 


01261b 






MOV 


(SP) ISP) 




2?64 


B 1 3030 


030002 






KTI 




f ( KC. 1 UKN 


22^5 


013032 


000 




H$: 


.BYTfe 





JJSTORAUE FOR ASCII DIGIT 






000 






,BYT£ 





1 I 1 tKninJA 1 OK rOH Tirt KUUliNt 




G 1 3034 






SOCNT I 


.tJYTt 


W 


llUw<A|. illBil uUUNitK 




1 3035 


000 




S0PILLS 


.BYTE 




tf7CUn IT T 1 1 CiiiTTr»J 


T . 


13036 


13 lu 10 io 10 




SOMQOt ! 


.i^ORO 


u 


|fNU~Otn ur UiVJilO lU lire 


22 ' 








•SHTTL 


SAVE ANy WEbTOKE K0-Hb 


n UU 1 i I'C O 


22i^ I 
















22^2 








; 




2273 








f *5AVe 


R0-R5 














;*CALL! 








2275 








M 


SAVREG 






CC ' 








?*UPON 


RETURN 


hkUM SSAVREG THE 


OIAl,i\ "iLw U">J" Ui"C.» 


CC' 1 
















22^6 








?*TOP — 


-(+16) 






22^9 








M +2-- 


-C+16) 






33H? 








M +4 — 


-R5 














I* ♦6-- 


-Ra 






c cOc 








1* +8 — 


-R3 














; ft+i0-- 


-R2 






22S^ 








;* + 12 — 


"hi 






2285 








l*+ia-- 


-Rk3 






22eb 
















2287 


013*340 






SSAVNtG: 






2288 


013040 


01004b 






MOV 


Hm3,-15P) 


nPySH Rf' ON STACK 


2289 


013042 


P10146 






MUV 


R1,-ISP) 


i;PUSH Rl OM STACi^ 


229? 


^ 13«44 


010246 






MOV 


H2,-15P) 


nPOSH R2 OfM STACK 


2291 


i:i3046 


01034b 






NOV 


RJ.'-CSP) 


;jPOSH R3 ON STACK 


2292 


013050 


01044b 






MOV 


R4,- CSP) 


JJPUSH Ra ON STACK 


2293 


f 13052 


010540 






MOV 


»5,-lSP) 


nPUSH R5 ON STACK 


2294 


213054 


016646 


000022 




MOV 


22(SP) ,-(5P) 


;;SAVE PS OF MAIN flOvl 


2295 


013060 


01664b 


000022 




NOV 


22CSP) ,-tSP) 


ffSAVt PC OF MAIN FLOW 


2296 


013064 


01bb46 


0005522 




MOV 


2^fSH) ,-CSH) 


JISAVt PS OF CALL 
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2297 


013070 


01bb4b 


000022 






MOV 


22(oP) ,^(SP) 


;iSAVt PC OF CALL 


2298 


013074 


Z20002 








RT! 






2299 


















2300 










;*R6ST0RE R0-R5 






2301 










;*call: 








2302 










; « 


RfcSWEG 






2303 


013076 








SRfcSRet: 






2304 


013076 


012fa6b 


0W0022 






MUV 


(SP)+,22CSP) 


IfRESTORE PC OF CALL 


2305 


013102 


012666 


«W0022 






MOV 


({sP)+,d2(5P) 


HRESTORE PS OF CALL 


230fe 


013106 


012666 


^500022 






MOV 


(SP)+,22(SPJ 


MRESTORE PC OF MAIN FLOW 


2307 


013112 


012666 


il00022 






NOV 


(SP)+,22(SP) 


IfRESlORE PS OF MAIN FLOh 


2308 


013116 


0l26vl5 








MOV 


(SP) ♦,K5 


nPOP STACK INTO R5 


2309 


313120 


012604 








MOV 


(SP) +,Ktt 


UPOP STACK INTO R4 


2310 


013122 


012603 








MOV 


(5P)+,H3 


MPOP STACK INTO K3 


23U 


013124 


012602 








MOV 


(SP) +,H2 


nPOP STACK INTO R2 


2312 


013126 


012601 








HOV 


(SP)+,W1 


nPOP STACK INTO Rl 


2313 


013130 


012600 








MOV 


(SP) ♦,K0 


nPOP STACK INTO R0 


2314 


013132 


000002 








kTI 






2315 










.S»TTL 


TTY INPUT ROUTINE 




2316 


















2317 












2318 


013134 


177560 






5TKS: 


.WORD 


177560 


HTTY KBO STATUS 


2319 


013136 


177562 






iTKu: 


.t^ORO 


177562 


i;TTY KBO BUFFER 


2320 










•ENABL 


LSB 






2321 


















2322 












2323 










MSOFTWARE SWITCH REGISTER CHANGE ROUTINE, 


2324 










l*ROUTINE IS ENTERED FROM THE 


TRAP HANDLER, AND WILL 


2325 










^SERVICE THE TEST FUR CHANGE 


IN SOFTWARE SWITCH REGISTER TRAP CAL 


2326 










;*WHEN 


OPERATING 


IN TTY-FLAG 


MODE, 


2327 


013140 


022737 


000176 


001214 


SCKSWRS 


CMP 


»SwRtG,SwR 


MIS THE SOFT-SWR SELECTED? 


2326 


013146 


001074 








BNE 


15S 


MBRANCH IF NO 


2329 


013150 


105777 


177760 






TST8 


*$TKS 


nCHAR THERE? 


2330 


013154 


100071 








BPL 


15S 


niF NO, DON'T WAIT AROUND 


2331 


013156 


117746 


177754 






MOVB 


«»STKb,«(SP) 


nSAVE THE CHAR 


2332 


013162 


042716 


177600 






BIC 


»"C177, (SP) 


nSTRIP-OFF THE ASCII 


2333 


013166 


022726 


000007 






CMP 


«7, (SP)+ 


MIS IT A CONTROL G? 


2334 


013172 


001062 








BNE 


15$ 


UNO, RETURN TO USER 


2335 


013174 


123727 


013714 


000001 




CMPB 


SAUTUB##l 


HARE WE RUNNING IN AUTO-MODE? 


2336 


013202 


001456 








BEQ 


15$ 


MBRANCH IF YES 


2337 


















2338 


013204 


104400 


013665 






TYPE 


.SCNTLG 


UECHO THE CONTROL-G ("GJ 


2339 


013210 


104400 


013672 




SGTSWRI 


TYPE 


,SMSWR 


nTYPE CURRENT CONTENTS 


23<)0 


013214 


013746 


000176 






HOV 


SWREG,»(SP) 


IISAVE SWREG FOR TVPEOUT 


23<ll 


013220 


104401 








TYPOC 




MGO TYPE — OCTAL ASCIICALL DIGITS) 


23<I2 


013222 


104400 


013703 






TYPE 


, SHNEW 


IIPROMPT FOR NEW SWR 


2343 


013226 


005046 






19SI 


clr 


-CSP) 


nCLEAR COUNTER 


23^4 


013230 


005046 








CUR 


-(SP) 


nTHE NEW SWR 


23<»5 


013232 


105777 


177676 




7S» 


TSTB 


#STKS 


MCHAR THERE? 


23«6 


013236 


100375 








BPL 


7S 


niF NOT TRY AGAIN 


2317 


















23«8 


013240 


117746 


177672 






MOVi 


#$TKB,-CSP) 


riPICK UP CHAR 


23«9 


013244 


042716 


177600 






BIC 


»*C177i (SP) 


IIMAKE IT 7-BIT ASCII 



2350 
2351 
2332 



OZRX^EsPil TTY XNFUT HUUTINE 



S3S3 


013250 


021627 


000025 




9SI 


CMP 


tSPJ ,#^5 


n IS IT A C0NTR0L-U7 




0132S4 


001003 








BNt 


10S 


|;BRANCH IF NOT 


asss 


013256 


104400 


013660 






TYPE 


fSCNTtU 


nYESj ECHO C0NTRQL«U C"U3 




013262 


062706 


000006 




20SS 


ADD 


#6,SP 


inSNORE PREVIOUS INPUT 


2357 


013266 


0007S7 








eR 


I9S 


; ILET 'S TRY IT AGAIN 


23Se 


















2359 


















2360 


013270 


021627 


000015 




i0ii 


CMP 


tSPJ ,»i5 


Ills IT A <CR>7 


2361 


013274 


001022 








BNE 


IbS 


IIBRANCH IF NO 


2362 


013276 


005766 


000004 






T6T 


« {SPJ 


1 1 YES , I S IT THE fIRST CHAR? 


2363 


013302 


001403 








BHQ 


1 IS 


iibrancm if yes 


2364 


013304 


016677 


000002 


165702 




MOV 




nSAVE NEm SMR 


2365 


013312 


062706 


000006 




1 lii 


ADD 


86, SP 


1 I CLEAR UP STACK 


2366 


013316 


104400 


012607 




14Si 


TYPE 




IJECHO <CR> AND <LF> 


236? 


013322 


123727 


013715 


000001 




CMPB 


SINTAG,#1 


MHE-ENABLE TTY KBO INTERKUPTb? 


2368 


013330 


001003 








BNE 


15S 


IfBRANCH IF NOT 


2369 


013332 


012777 


000100 


177574 




MOV 


S100,#STKS 


IIPE'ENABLE TTY K«D INTERRUPTS 


23?0 


013340 


000002 






15S! 


RTI 




1 /RETURN 


23Ti 


013342 


004737 


012526 




16S: 


JSR 


PC,4TYP£C 


IIECMO CHAR 


23T2 


013346 


021627 


000060 






CMP 


CSP) ,#60 


; ;CHAR < 07 


2373 


013352 


002420 








BLT 


16S 


IIBRANCM IF YES 


2374 


013354 


021627 


000067 






CMP 


ISPJ ,#67 


nCHAR > 77 


2375 


013360 


003015 








BGT 


IBS 


llBKANCh IF YES 


2376 


013362 


042726 


000060 






blC 


Mbd, ISP)* 


IISTRIP-OFF ASCII 


2377 


013366 


005766 


U00002 






TST 


2CSPJ 


1 ; IS THIS THE FIRST CHAR 


2378 


013372 


001403 








BtQ 


17S 


; I BRANCH IF YtS 


2379 


013374 


006316 








A6L 


CSPJ 


UNO, SHIFT PRESENT 


2380 


013376 


006316 








ASU 


ISP) 


if CHAR OVER TO MAKE 


2381 


013400 


006316 








ASl. 


CSPJ 


II ROOM FOR NEW ONE, 


2382 


013402 


005266 


000002 




i7SS 


INC 


2tSPJ 


JIKEEP COUNT OF CHAR 


2383 


013406 


056616 


177776 






BIS 


-2(SP3 , (SPJ 


1 ISET IN NEW CHAR 


2384 


013412 


300707 








BR 


7S 


1 JGET THE NEXT ONt 


2385 


013414 


104400 


012606 




18S} 


TYPE 


,SQUtS 


IITYPE ?<CR>'<LF> 


2386 


013420 


000720 








BR 


20S 


llSIHULATfc CONTROL-U 


2387 










.OSaBL 


LSB 






2388 


















2389 


















2390 














239| 












ROUTINt 


WILL INPUT A SINGLfc CHAWACTEK FKUM THE TTY 


2392 










l*CALL! 








2393 










M 


KDCHR 




1 ; INPUT A SINGLE CHARACTER FROM TmE 


2394 










I* 




HERE 


JICMAKACTER IS ON THE STACK 


2395 










; t 






IIWITH PARITY BIT STRIPPED OFF 


2396 










} 








2397 


















2398 


013422 


01164(3 






SRDCHR ! 


MOV 


CSPJ ,-lSP) 


1 IPUSH UOWN THE PC 


2399 


013424 


016666 


000004 


000002 




MOV 


aCSPJ ,2CSP3 


JISAVE THE PS 


2400 


'?13432 


105777 


17747b 




lit 


TSTB 


#STKS 


IIWAIT FOR 


2401 


013436 


liSa375 








BPL 


li 


IIA CHARACTER 


2402 


013440 


U7766 


177<472 


000004 




MOVB 


gSTK»,4CSPJ 


HREAD THE TTY 


2403 


013446 


042766 


I7760tf 


000004 




eic 


i!-C*«177»',4CSP3 


IIGET RIi; OF JUNK |F ANY 


2404 


013454 


026627 


000004 


000023 




CMP 


aCSPj ,S23 


?;IS IT A CONTROL-S? 


2405 


013462 


001013 








6NE 


Sh 


IIBRANCH IF NO 


2406 


013464 


105777 


i7r44a 




2SI 


TSTi 


PiTKS 


IIWAIT FOR A CHARACTER 


2407 


013470 


100375 








BPL 


24 


JILOOP UNTIL ITS THERE 


2406 


013472 


U774b 


177440 






M0V6 


iSTKBj-CSP} 


IIGET CHARACTER 



MAlNOEC-H«OZRXA-E MaCYU 27C732) 

DZRXAE.PU TTY INPUT ROUTINE 



20«SEP»76 15106 PAlsE aS 



2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
243T 
2438 
2439 
24^10 
24«l 
2442 
24«3 
24^14 
24<»5 
2446 
24«T 
2443 
24<}9 
2430 
2451 
24Sa 
2453 
2454 
2435 
S456 
24S7 
2458 
24S9 
2463 
2461 
2462 
2463 
2464 



013476 


042716 


177600 






eic 


»"C177, CSPJ 


IIMAKE IT 7"BIT ASCII 


013502 


022627 


000021 






CMP 


CSP)*,»21 


niS IT A CDN1R0L«Q? 


013506 


001366 








8NE 


2$ 


1 ; IF NUT DISCARD IT 


013510 


000750 








8R 


IS 


; lYES, RESUME 


013512 


026627 


000004 


000140 


3S! 


CMP 


4CSPJ ,»ia0 


niS IT UPPER CASE? 


013520 


002407 








BLT 


«$ 


IIBRANCH IF YES 


013522 


026627 


00000a 


000175 




CMP 


aCSPJ ,»175 


J.IIS IT A SPECIAL CHAR? 


313530 


003003 








BGT 




IIBRANCH IF YES 


013532 


042766 


000040 


00000a 




BIC 


»a0,«CbP3 


IIMAKE IT UPPER CASE 


013540 


000002 






ail 


RTI 




IIGO BACK TO USER 










1 ift*ft** 














MTHIS 


ROUTINE 


WILL INPUT A STRING FROM THE TTY 










MCALL! 
















1* 


ROLIN 




IIINPUT A STRING FROM THE TTY 










M 


RETURN 


HERE 


IIADDRESS OF FIRST CHARACTER WILL BE 










M 






IITERMZNATOR WILL BE A BYTE OF ALL 0' 


013542 


010346 






SROLINI 


MOV 


RS.-ISP) 


nSAVE R3 


013544 


012703 


013650 




ISI 


MOV 


#$TTYIN,R3 


IIGET ADDRESS 


013550 


022703 


013660 




2SI 


CMP 


»STTYIN+8,,R3 


IIBUFFER FULL? 


013554 


101405 








BLOS 


as 


HBR IF YES 


013556 


104406 








ROCHR 




IIGO READ ONE CHARACTER FROM THE TTY 


013560 


112613 








MOVB 


CSPJ*, IR3) 


■ IIGET CHARACTER 


013562 


122713 


000177 




10SJ 


CMP8 


»177, CR3J 


niS IT A RU80UT 


013566 


001003 








BNE 


S$ 


1 ISKIP IF NOT 


013570 


104400 


012606 




4S1 


TYPE 


,$QUkS 


IITYPE A '?' 


013574 


000763 








BR 


1» 


IICLEAR THE BUFFER AND LOOP 


013576 


111337 


013646 




3SI 


MOVB 


CR3J ,9S 


IIECHO THE CHARACTER 


013602 


104400 


013646 






TYPE 


,9$ 




013606 


122723 


000015 






CMPB 


»1S, CR33+ 


IICHECK FOR RETURN 


013612 


001356 








BNE 


2S 


IILOOP IF NOT RETURN 


013614 


105063 


177777 






CLR8 


«1 CR3J 


IICLEAR RETURN (THE 15) 


013620 


104400 


012610 






TYPE 




IITYPE A LINE FEED 


013624 


012603 








MOV 


CSP)*,K3 


IIRESTORE R3 


013626 


011646 








MOV 


CSPJ ,-CSP) 


IIADJUST THE STACK AND PUT ADDRESS OF 


013630 


016666 


000004 


000002 




MOV 


aCSPJ ,2CSP3 


II FIRST ASCII CHARACTER ON IT 


013636 


812766 


0S3650 


000004 




MOV 


«STTYIN,4C5PJ 




013644 


000002 








RTI 




IIRETURN 


013646 


000 






9SI 


sBYTE 





II8T0RAGE FOR ASCII CHAR, TO TYPE 


013647 


000 








.BYTE 





IITERMINATOR 


013650 


000010 






STTYINJ 


,BUKB 


8, 


IIRESERVE 8 BYTES FOR TTY INPUT 


013660 


052536 


005015 


000 


SCNTLUI 


,ASCH 


/**u/<ias><i2> 


IICONTROL "U" 


013665 


136 


006S07 


000012 


SCNTLGI 


,A3CIZ 


/•'G/«15»<12> 


1 ICONTROL "G" 


013672 


003015 


053583 


020122 


SMSWR! 


«A3CIZ 


«15»<12>/8WR a 


/ 


013T00 


020075 


000 












013703 


040 


047^40 


053505 


smnewi 


,ASCXZ 


/ NEW ■ / 




013710 


036440 


000040 












013714 


000 






SAUTOBS 


«BYTE 


MAUTO 


MODE FLAG 


013713 


000 






SZNTAGI 


,ByTE 


H IIINTERRUPT MODE FLAG 










aSBTTL 


TRAP OfeCOOEH 












l*THia 


ROUTINE 


WILL PICKUP THE 


LOWER BYTE OF THE "TRAP" INSTRUCTION 










MAND USE IT TO 


INDEX THROUGH 


THE TRAP TABLE FOR THE STARTING ADDRESS 



sOF THE DESIRED ROUTINE, 
AGO TO THAT ROUTINE, 



THEN USING THE ADDRESS OBTAINED IT WILL 



DERX^E^Pll TRAP OeCOOtS 

























313716 


0l0y346 






STRAPS 


HOV 


R0," ISF5 


llSAVfc R0 






013720 


016600 


E00002 






MOV 


21SPJ ,R0 


IJGET TRAP ADDRESS 




Z I 3724 


305740 








TST 




nSACKUP 8Y 2 






013726 


1 1 1000 








Move 


CR0J ,R0 


nGET RIGHT BYTE 


OF TRAP 


2^70 


■313730 


006300 










H0 


nPOSITION FOR INDEXING 


247 1 


01 3732 


016000 


013 7 40 






MOV 


STRPAOtR03 ,R0 


yflNDEX TO TABLE 






0137 36 


000200 








RTS 


R0 


; ;go to routine 




2fl73 






























.SBTTU 


TRAP TAau& 


























2476 










I«TMIS 


lABLfc CONTAINS THE STARTING AODHfcSSES OF 


THE ROUTINES CALLED 


2477 










MBY THE "TRap" 


INSTRUCTION, 






24 78 




















2479 










1 


ROUTINt 








2480 










1 










24^1 


1 37 40 








ST«PAO 8 










24B2 


0137 40 


012356 








STYPE 


nCAUtaTYPt 


TRAP4-0(104400) 


TTY TYPtOUT ROUTINE 


2463 


913742 


012636 








ST YPQC 


IICAULBTYPUC 


TRAP+l 1104401 ) 


TYPE OCTAL NUMBER (WITH LEADING ZEROS) 


?484 


013744 


012612 








STYPOb 


nCALLsTYPOS 


THAP+aC1044023 


TYPE OCTAL NUMBER (NO LEADING ZEROS) 


2485 


013746 


1 2652 








STYPOn 


nCALL«TYPUN 


TRAP-8-3Clfe)4403) 


TYPE OCTAL NUMBER (A8 PER LAST CALL) 


243& 




















2487 


1 3750 


013210 








SGTSk^N 


nCALL»GTSWR 


TRAP + 4 C10a4W43 


GET SOFT-SWR SETTING 


2488 




















2489 


013752 


013140 












TRAP4-5C1W4405) 


TEST FOR CHANGE IN SOFT-SwR 


2490 


013754 


01 3422 










MCaULsRDCHR 


TRAP+6li04406) 


TTY TYPEIN CHARACTER ROUTINE 


249 J 


013756 


013542 








SROLIN 


UCAtUaROLlN 


TRAP + 7 CIO'44073 


TTY TYPEIN STRING ROUTINE 


2492 


S 1 3760 


01304 








SSAVREU 


;iCALL«SAVREG 


TRAP+10tl044l0) 


SAVE R0-R5 ROUTINE 


2493 


013762 


01307b 








SRESREG 


IICALL8RESREG 


TRAP+ll (1044113 


RESTORE Ra-R5 ROUTINE 


24''4 










.SBTTU 


PUWEK UOWN ANU UP ROUTINES 




2495 




















249fe 
















f f qI 










JPUk^ER 


DOWN ROUTINE 






2495 


013764 


012737 


1 4 1 3M 


1( ' c 4 


SPWRONI 


MOV 


f SILI.UP,#i?PWRVEC 


/ ;SET FOR FAST 


UP 








W (tl W J *• (M 






HOV 


#34w5,##PwKVEC + 2 


;;PR10!7 






2 1 4000 


01004b 








MOV 


Rii5,"t5H] 


flPUSM K0 ON STACK 


2501 


014002 


010146 








MOV 


Kl,-C5P) 


nPUSM Rl on STACK 


2502 


014004 


3 1 0246 








MOV 


K2,-C8P) 


; ;PUSH R2 ON STACK 


2503 


1 4006 


01034b 








MOV 


H3,- iSP) 


JJPUSH R3 ON STACK 


2504 


U 1 4 1 


0104 4b 








HOV 


R4,-CSP) 


nPUSH R4 ON STACK 


2505 


1 40 1 2 


1 0546 








MOV 


R5,-ISR3 


nPUSH R's ON STACK 


2506 


014014 


0177 46 


1 6^ I 74 






HOV 


^SWR,-iSPJ 


?fPUSH #SWR ON STACK 


25^7 


i3 1 4020 


313637 


01^134 






HOV 


tiP,*SAVRb 


MSAVE SP 




2508 


KJ i, m <l C H 




M < am Ah 


It' ly V c ** 




HOV 


»SPwHUP , f^Pi^RVEC 


nSET UP VECTOR 




2509 


014(332 


00000M 








HALT 








2510 


£14034 


01^0776 








BR 


,»2 


J ; HANG UP 




25U 




















2512 












2513 










IPOWER 


UP RouriNt 






2514 


'3)14036 


012737 




000024 


SPWRUPI 


MQV 


sSbH-LURf^sPwRVEC 


;;SET FOR FAST 


DUWN 


2515 


014044 


31370b 


0iai34 






MOV 


SSAVR6»SP 


nGET SP 




2516 


014050 


005037 


014134 






CLR 


SS A VHb 


MWAIT LOOP FOR 


THE TTY 


2517 


014054 


005237 


014134 




IS! 


INC 


SSAVKb 


nWAlT FOR THE INC 


2516 


314060 


001375 








BNE 


ll> 


nOF WORD 




2519 


J14062 


012677 


163126 






MOV 


ISPJ*,PSWK 


;fPUP STACK INIU 


e»St«R 


2520 


314066 


012b?i5 








MOV 




nPOP STACK INTO 


W5 



MAlNDEC«l 1«DZRXA-E MACYU 27 (732) 20«SEP="76 iS!4b P&GE 4/ 

OZRXAEgPll POWER DOWN ANQ UP ROUTINES 



2521 
2522 
2523 
2524 
2525 
2526 
2527 
3528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
2538 
2539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 
2547 
2548 
2549 
2550 
25Sl 
2532 
2553 
2554 
2555 
25S6 
255T 
2558 
2559 
2560 
2561 
2562 
2563 
2564 
2565 
2566 
2567 
2568 
2569 
2570 
2571 
2572 
2573 
2574 
2575 
2576 



014070 
k314072 
014074 
014076 
014100 
014102 
014110 
014116 
£14120 
C14122 
014124 
014126 
014130 
014132 
014134 
014136 
014144 



012604 
012603 
012602 
012601 
012600 
012737 
012737 



013764 

000340 



0^0024 
0^^0026 



014136 
01271b 
002700 



MOV 

MOV 

MOV 

MUV 

MOV 

MQV 

HOV 

TYPE 

,WORD 

MOV 

«WORD 

RTI 

HALT 

BR 



(SPJ+,R4 ffPOP STACK INTO R4 

(SPJ*,R3 UPOP STACK INTO H3 

(SP) ♦,R2 MPOP STACK INTO K2 

(SP)+,R1 IJPOP STACK INTO Rl 

CSP) + ,H0 HPOP STACK INTO R0 

sSPi«(WDN,#»PWRVEC nSET UP THE POWER DOWN VECTOR 

s340,#»PWRVEC+2 |;PRIU17 

fREPORT THE POWER FAILURE 
SPOWER nPOWER FAIL MESSAGE POINTER 

CPCJ+,CSP) ^RESTART AT RESTART 

RESTART |;RESTART ADDRESS 



005015 
000122 



SSAVR6! 

042527 SPOWERI .ASCIZ < 1 5>< I 2> "POwER " 



nTHE POWER UP SEQUENCE WAS STARTED 
ft BEFORE THE POWER DOWN wAS COMPLETE 
IIPUT THE SP HERE 



.SBTTL 



.EVEN 

SINGLE LfcNGTM BINARY TO DECIMAL ASCIZ ROUTINE 



I*THIS ROUTINE WILL CONVERT A 16-8IT UNSIGNED BINARY NUMBER TO AN 

MUNSIGNEO DECIMAL ASCIZ NUMBER, 

l*CALL 

l«r MOV NUMBER, -(SP) IJPUT BINARY NUMBER ON THE STACK 

M JSR PC,#»S8i2D nCALL 

M RETURN HADDRESS OF TH£ 1ST ASCIZ CHAR, IS ON THE STACK 



014146 


016637 


000002 014176 


SSB2DI 


MUV 


a(SP3 , IS 


nSAVE BINARY NUMBER 


014154 


012746 


014176 




MOV 


»is#-tap) 


IISET POINTER 


014160 


004737 


014202 




JSR 


PC,^»SUB2D 


nCALL DOUBLE LENGTH CONVERT 


014164 


062716 


000005 




ADO 


«IS, CSP) 


nONLY ALLOW FIVE CHARACTERS 


014170 


012666 


000002 




MOV 


CSP)*,2(SPJ 


nPICKUP POINTER 


014174 


000207 






RTS 


PC 


1 rRETUHN 


014176 


000000 


000000 


ISS 


eWORO 


0,0 





.SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 

MTHIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED 
^DECIMAL (ASCII) NUMBER, THE SIGN OF THE BINARY NUMBER MUST BE 
l*POSITiVE, 
l*CALL 
I* 
I* 
M 



MQV 
JSR 

RETURN 



#PNTH,«(SP) 
PC,##S0a20 



MPOINTER TO LOW WORD OF BINARY NUMBER 



IITHE FIRST ADDRESS OF ASCIZ 
MIS ON THE STACK 



014202 104410 

014204 016602 

014210 012700 
014214 



000002 
014362 

000002 



014220 012201 
014222 012202 

014224 012737 000012 014300 



SAVREG 
MOV 
MOV 
MOV 

MOV 
MOV 
MOV 



2CSP),R2 
#SOECVL#R0 
R0,2(8P) 
CR2J*»Hl 
(R2J ♦,R2 
#10. »4S 



IISAVE REGISTERS 

MPICKUP THE DATA POINTER 

nGET ADDRESS OF "SOECVL" STRING 

flPUT ADDRESS OF ASCIZ STRING ON STACK 

MPICKUP THE BINARY NUMBER 

M3ET UP TO DO 10 CONVERSIONS 
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DZRXAEgPU OUUBLi LENGTH BINARV TU OECIMftU ASCII CQNVEfiiT HOUTINE 



2577 


014232 


012704 014312 




MOV t»$TNPWK|R4 


nAODRESS OF TEN POWER 


2578 


01 4236 


312705 014314 




MOV #STNPWH4-2 f R5 




2579 


014242 


005003 


1st 


CUR RS 


iiclear partiau 


2580 


14244 


1 6 1401 


2S 1 


SUB (R 4 J 1 K 1 


MSU8TRACT TEN POWER 


256 1 


014246 






S8C K2 




25SS 


1 4250 


1 6 1502 




SUB CR5 J f R2 




2503 


14252 


002402 




BUT 34 


ItBP IF TEN POWER TO LARGE 


2584 


14254 


005203 




INC K3 


}|AUD 1 To PARTIAL 


2565 


1 4256 


0007 72 




Brt 2S 


; J LOOP 


2566 


10 1 >*eo\o 


tu O C *4 <6 4 


3i i 


ADD (R4} ^fNl 


MRE3T0RE SUBTRACTED VALUE 


2587 


^ 4 M C O C 


ICllU 3 J IP c 




ADC W2 




2566 


(% 1 UPkH 
lo J C w«t 


lU w C "f rJC 




ADO IH4) <^yK2 




2589 


1 4266 


022535 




CMP IR5) + 1 (R5} 4' 


nMOVE TO NEXT TEN POWER 


2590 


014270 


052703 0C^i006M 




BIS »'0»H3 


IICHANGE PARTIAL TO ASCII 


259| 


014274 


1 10320 




MOVS PSf (N0J + 


nSAVt IT 


2592 


014276 


005337 




DEC IPCJ+ 


? ; DONE? 


2593 


014300 


000000 


4S! 


aMORO 1^ 




2594 


3 14302 


001357 




0NE 1 i 


;jBR IF NO 


2595 


014304 


1 05020 




CLR8 CN03+ 


J ITERMINATDH 


2S9b 


14306 


10441 1 




RESREG 


nRESTORE REGISTERS 


2597 


014310 


000207 




RT8 PC 


J 1 RETURN 


2598 


014312 


1 45000 


STNPmH I 


1 45^00 


1 1 1 ,0E09 


2599 


014314 


035632 




35632 




2600 


014316 


160400 




1 b040g« 


111, 0E08 


2601 


014320 


002765 




2765 




2602 


214322 


1 13200 




1 13200 


1 1 1 ,0E07 


2603 


314324 


000230 




230 




2604 


14326 


041100 




041100 


1 1 1 ,0E06 


2605 


1 4330 


0000 } 7 




\ 7 




2606 


1 4 3 3 2 


103240 




103240 


1 ; 1 ,0E05 


2607 


314334 


00000 1 




I 




2608 




023430 




23420 


1 1 1 .0t04 


2609 


014340 


000000 









2610 


014342 


001750 




1 750 


I n.0E03 


26U 


014344 


0000510 









2612 


014346 


000144 




144 


1 ; 1.0E02 


2613 


1 4350 


000000 









2614 


14352 


00001 2 




12 


nl,0E01 


2615 


014354 


000000 









2616 


a 1 4356 


00000 1 




I 


; 1 1 .0E00 


2617 


014360 


000000 









2618 


014362 


0000 1 a 




.eUKB 12. 


IIRESERVE STORAGE FOR AbCIZ STRING 


2619 












2620 








2621 












2622 








JTYPE NUMERICAL ASCIZ STRING, RIGHT JUSTIFIED 


2623 








^REPLACING LfcAOING ZEROS 


1 WITH SPACES, 


2624 








J 




2625 








fFlRSI AQORESS OF ASCIZ 


STRING MUST BE ON TOP OF THE STACK 


2626 












2627 


B14376 


010046 


WTJUST! 


MOV N0,-(5P3 


ISAVE R0 


2628 


014400 


916600 00k)004 




MOV 4tSPJ,W0 


IPICK UP ADDRESS OF ASCIZ STRING 


2629 


014404 


010037 014436 




MOV K0,3S 


ISAVE ADDRESS FOR TYPE OUT 


2630 


014410 


105710 


ISi 


TSTe CK0) 


;is This the terminatur 


2631 


314412 


0014136 




BECj eJS 


IIF YES TYPE IT OUT 


2632 


314414 


I227ia 000060 




CMPd *'0,tR0) 


nS IT A ZERO 
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OZRXAE,PU DOUBLE LENGTH BINARY TU DECIMAL ASCII CONVERT WUUTINE 



2633 


014420 


001005 










HNE 4* IIF NO GO PRINT IT 


2634 


014422 


112720 


000040 








MOVtJ #' ,tR0J+ IIF YES REPLACE IT WITH A ] 


2635 


014426 


000770 










BR 15 ITEST NEXT CHAR, 


2636 


014430 


112740 


000060 




2s: 




MOVd »'0,-CR0) ISTRING OFF ALL ZEROS, PuT I 


2637 


014434 


104400 






4s: 




TYPE ITYPE THE STRING 


2638 


014436 


0000-30 






3SI 




OPEN 


2639 


014440 


012b00 










MOV ISP)4-,R0 IRESTORE R0 


2640 


014442 


01261b 










MOV tSP)+,lSP) IRESTURt THE STACK 


2641 


014444 


0002597 










RT8 PC IRETURN 


2612 
















2643 












ITYPES 


lb BIT WQRU IN DECIMAL 


2644 
















2645 


014446 


012546 






SGLDEC: 




MOV lRb)+,-(SP3 IPUT NUMBER TO BE TYPED ON 


2646 


014450 


004737 


014146 








JSR PC,##$SB2D ICONVERT NUMBER TU DECIMAL 


2647 


014454 


004737 


014376 








JSR PCRTJUST ITYPE THE DECIMAL NUMBER 


2648 


014460 


000205 










RTS R5 


2649 
















2650 
















2651 


014462 


047125 


054105 


042520 


MUNXDDS 




.ASCIZ "UNEXPECTED MARK" 


2652 


014470 


052103 


042105 


042040 








2653 


014476 


042040 


046440 


051101 








2654 


014504 


000113 












2655 
















2656 


014506 


020104 


020104 


040515 


MDOMIS! 




.ASCIZ "0 U MARK MISSING" 


2657 


014514 


045522 


046440 


051511 








2656 


014522 


044533 


043516 


000 








2659 
















2660 
















2661 


014527 


104 


052101 


026101 


mderhdr: 




.ASCIZ "DATA, NO STATUS ERROR" 


2662 


014534 


047040 


020117 


052123 








2663 


014542 


052101 


051525 


042440 








2664 


014550 


051122 


051117 


000 








2665 
















2666 


014555 


040 


047117 


052040 


MTRKl 




'.ASCIZ " ON TRACK" 


2667 


014562 


040532 


045503 


000 








2668 
















2669 
















2670 


014567 


040 


043040 


047522 


MPHESI 




.ASCIZ " FROM TRACK" 


2671 


014574 


020115 


051124 


041501 








2672 


014602 


000113 












2673 
















2674 


014604 


027440 


051440 


041505 


MSECT! 




.ASCIZ » / SECTOR" 


2675 


014612 


047524 


000122 










2676 
















2677 


014616 


005015 


041040 


052131 


MCOUMUN! 




.ASCIZ <15»«12>" BYTE BAD GOOD "< 1 5>< 1 2> 


26T8 


014624 


020105 


041040 


042101 








2679 


014632 


020040 


047507 


042117 








26B0 


014640 


005015 


000 










2661 
















2662 


014643 


015 


041412 


052501 


O0LOAD: 


.ASCII 


<15><12>"CAUTI0N " IF YOU DESIRE TO TEST UNIT 0« 


2663 


014650 


044524 


047117 


026440 








2684 


014656 


044440 


020106 


047531 








2665 


014664 


020125 


042504 


044523 








2666 


014672 


042522 


0S2040 


020117 








2687 


014700 


042524 


052123 


052440 








2668 


014706 


044516 


020124 


060 









DZRXAggPU DOUBLE LENliTH OlNARf TU DECIMAL ASCII CONVE«T HQUTINt 



2689 


Plfl7i3 


015 


?^51012 


050105 


•ASCII 


<l5><12>»HEPLACb LUAO MEDIUH WITH 


2690 


014720 


040514 


042S03 


046040 








269i 


014726 


040517 


020104 


042515 








2692 


tli4734 


044504 


046525 


053440 








2693 


314742 


0521 1 1 


0201 10 


020101 








2694 


B14750 


041523 


040522 


041524 








2695 


014756 


0201 10 


0U4504 


045523 








2696 


014764 


052105 


042524 










2697 


014770 


005015 


044124 


047105 


.ASCIZ 


<15><12>"TM£N PRESS CUNTINUE" 


2698 


314776 


050040 




051523 








2699 


015004 


041440 


0471 1 7 


044524 








270?) 


0l5?il2 


052516 


ri0idi05 










27WI 
















2702 


--515016 


047516 


042040 


044522 


mnoohy: 


.ASCiZ 


"NO DRIVES READy"<i5><i2> 


2703 


015024 


042526 


020123 


042522 








2704 


015032 


042101 


0wb53l 


000012 








2705 
















2706 


3150«0 


020040 


020040 


020040 


TAB! 


.ASCIZ 


«40»<40><40>«40>440><40> 


2707 


ai50a6 


000 












2708 
















27^39 


£15047 


40 


0*^10040 




OBLSP! 


.ASCiZ 


<40>440> 


2710 
















27U 


.115052 


0Q5015 


000 




MCRLF! 


, ASCIZ 


<15><12> 


2712 
















2713 


015055 


1 04 


000 




MEOPJ 


.ASCiZ 


HQ II 


27H 
















2715 


£ 15057 


055 


000 




MtKEOPI 


.ASCIZ 




2716 
















2717 


'315061 


007 


V)00 




mahell: 


.ASCIZ 


<07> 


2718 
















2719 


^15063 


105 


?5U 22 


051 1 17 


MtHht&UtR! 


.ASCIZ 


"ERHOH CONDITIONS " 


2725* 


C15070 


041440 


Ma 7 1 1 7 


044504 








2721 


01507b 


044524 


047117 


020123 








2722 


E15104 


003040 












2723 
















2724 


CI 51 06 


047125 


!^52l 1 1 


030040 


MUNIT0: 


■ASCIZ 


"UMIT " 


2725 


?15l 14 


000040 












2726 
















2727 


:il5ll6 


047125 


0521U 


030440 


HUNITI ! 


.ASCIZ 


"UNIT 1 " 


2728 


015124 


000040 












2729 
















2730 


£15126 


340510 


02M123 


042502 


MDELETS 


.ASCIZ 


"HAS 6EEN DELETED," 


2731 


S'l5i34 


2'a7i05 


04eJ,d4'4 


046105 








2732 


tU5142 


052105 


042105 


000056 








2733 
















2734 


015150 


044440 


fr''521 lo 


05304k5 


HINTVtC: 


.ASCIZ 


" INT VECTUH a " 


2735 


315156 


041505 


047524 


020122 








2736 


ai5ife« 


320075 


000 










2737 
















2738 


?15167 


122 


041530 


020123 


HRXCS! 


.ASCIZ 


"WXCS a " 


2739 


D15174 


020075 


000 










27«3 
















27<ll 


015177 


040 


054 122 


MaU04 


MWXDR! 


.ASCIZ 


" KXDH 8 " 


2742 


L- 15204 


036440 


000043 










27^3 
















27^4 


015210 


052123 


052101 


051525 


HA5TAT ! 


.ASCIZ 


"STATUS AS" 



MAINUEC-I i-OZRXA-6 HACYll 27(732) 20-SEP-76 I5!4b PAUE 51 



ZRXAE.PI 1 


DOUBLE 


LENGTH BINARY TU 


DECIMAL ASCII 


CONVERT t 


ROUTINE 


2745 


015216 


040440 


0364^0 


000(d40 








2746 
















2747 


015224 


052123 


052101 


051525 


MBSTAT! 


.ASCIZ 


"STATUS B s " 


2748 


015232 


341040 


P536440 


000040 








2749 
















2750 


015240 


0W5015 


000012 




DBLlF! 


.ASCIZ 


<15><i2><12> 


2751 
















2752 


015244 


036520 


000040 




MPAT! 


.ASCIZ 


II Pb h 


2753 
















2754 


i?l5250 


036524 


000040 




mtest: 


.ASCIZ 


II T 8 


2755 
















2756 


£15254 


036523 


000040 




MSEQJ 


.ASCIZ 


«Sa " 


2757 
















2758 


315260 


047516 


0U4440 


052116 


HINTERJ 


.ASCIZ 


"NO INTERUPT AT DONE ERROR" 


2759 


015266 


051105 


050125 


020124 








2760 


f 15274 


052101 


042040 


0471 17 








2761 


015302 


3201'«5 


(7151 105 


047522 








2762 


015310 


000122 












2763 
















2764 


315312 


047125 


047113 


053517 


MUKNINT : 


.ASCIZ 


"UNKNOWN INTERUPT" 


2765 


015323 


0201 16 


047111 


042524 








2766 


315326 


352522 


052120 


000 








2767 
















2768 


015333 


124 


052117 


046101 


MERCTI 


.ASCIZ 


"TOTAL READ CHECK ERRORS s " 


2769 


315340 


051040 


040505 


020104 








27T0 


315346 


044103 


041505 


020113 








2771 


015354 


051105 


047522 


051522 








2772 


015362 


036440 


000040 










2773 
















2774 


015366 


044506 


046114 


052502 




.ASCIZ 


"FILLHUFFER " 


2775 


015374 


043106 


051105 


000040 








2776 
















27f7 


015402 


346505 


052120 


041131 


MEMPTY J 


.ASCIZ 


"EMPTYBUFFER " 


2778 


015410 


043125 


042506 


020122 








2779 


015416 


000 












27B0 
















2781 


P15417 


104 


044522 


042526 


MICQNI 


.ASCIZ 


"ORIVE(S) " 


2782 


315424 


051450 


020051 


000040 








2783 
















2784 


015432 


342524 


052123 


044040 


MhUNGI 


.ASCIZ 


"TEST HUNG"<15><12» 


2785 


315440 


047125 


006507 


000k?12 








2786 
















2767 


015446 


047516 


05151b 


040524 


mnonstd: 


.ASCIZ 


"NONSTANDARD TRACK / SECTOR LIMITS" 


2788 


015454 


042116 


051101 


020104 








2789 


015462 


051124 


041501 


020113 








2790 


015470 


020057 


042523 


052103 








2791 


015476 


051117 


046040 


046511 








2?92 


015504 


052111 


000123 










2793 
















2794 


015510 


042117 


000075 




MODI 


.ASCIZ 


"DOB" 


2795 
















2796 


015514 


042111 


000075 




MIDI 


.ASCIZ 


"IDa" 


2797 
















2793 


015520 


044506 


051522 


036524 


MFIRSTI 


.ASCIZ 


"FIRSTS" 


2799 


015526 


000 












2800 





















MACYll 


27(7323 


20«SEP«76 


1SI46 P>A6g 


S2 


n 3 (J A ^ 




DOUBLE 


LENSIM siNARy TU 


DECIMAU aSCII CDNVEWT i 


ROUTINE 


gS0| 


01BS27 


114 


051501 


036524 




» ASC 1 Z 


"LASTS" 




015534 


000 












£893 
















S804 


015535 


111 


044516 


027124 


MINITl J 


« ASCIZ 


"INIT, JONE NOT SET ERROR "« 1 5>< 1 2> 


380S 


B15542 


047504 


042516 


047040 










0155S0 


052U7 


051440 


052105 








2807 


ilSSSfe 


042440 


05 1 1 22 


051 1 17 








2808 


315564 


00501S 


00*3 










2809 
















2810 


015567 


lU 


044516 


0271 24 


M1NIT2! 


• ASC I z 


"INIT.DONt SET ERROR" <15><12> 


281 1 


015574 


047504 


042516 


051440 








2612 


915602 


052105 


042440 


051 122 








2813 


S15610 


051117 


00!30 1 5 


000 








26i4 
















28iS 


015615 


104 


04S040 


042440 


MOOCRl 


» ASCIZ 


"D D tRROR" 


28I& 


015622 


051122 


0511 17 


000 








2617 
















26 S § 


015627 


122 


04S505 


053117 




9 ASCIZ 


"RECOVERABLE " 


2819 


015634 


051105 


041101 


042514 








2820 


015642 


000000 












282 1 
















2822 


015644 


051103 


020103 


051 105 


M^ADCRC ! 


9 ASCIZ 


"CRC ERROR NO DATA ERROR" 


2823 


315652 


047522 


020122 


047516 








262^ 


015660 


043040 


052101 


020101 








2825 


01S666 


051105 


047522 


000122 








2826 
















2827 


i?1567a 


B42522 


042101 


000040 


MRt AO 1 


a ASCIZ 


"READ " 


2828 
















2829 


015702 


040510 


0521 14 


032040 


MHALT4J 


.ASCIZ 


"HALT 4" -C15><12> 


2830 


015710 


0050! 5 


y00 


























2832 


015713 


110 


04bl01 


020124 


MHALT3I 


.ASCIZ 


"HALT 3" <15><12> 


2833 


015720 


006463 


000012 










283<S 
















2835 


215724 


000510 


052114 


030440 


MMALTl I : 


.ASCIZ 


"HALT U" <15><12> 


2836 


£15732 


006461 


000012 










2637 
















2838 


S15736 


040504 


040524 


041a40 


MCNCS 


.ASCIZ 


"DATA CRC ERROR" 


2839 


015744 


041522 


042440 


W5U22 








2840 


015752 


051117 


000 











2641 
28«2 



2843 


015755 


040 


047125 


042522 


HUNREC! 


.ASCIZ 


" UNRECOVERABLE 


2844 


015762 


047503 


042526 


040522 








2845 


015773 


046102 


020105 


000 








2S46 
















2647 


015775 


123 


^42505 


0201 13 


MSEEKS 


.ASCIZ 


"SEEK ERROR" 


2848 


C16002 


051 105 


J«47522 


000122 








2649 
















2850 


(^16010 


051 127 


052111 


020105 




.ASCIZ 


"WRITE " 


285i 


016016 


000 












2852 
















2853 


5316017 


120 


051101 


052111 


mpar: 


.ASCIZ 


"PAKIly EHROR" 


2654 


016024 


020131 


051 105 


047522 








2855 


016032 


000122 













ilNDEC 


«U«OZRXA-E 


•lACYil 


27(7323 


:rkae, 


Pll 


DOUBLE 


LENGTH 1 


lilNARy TU 


2857 


016034 


051 105 


047522 


020122 


2856 


016042 


046106 


043501 


042440 


2859 


016050 


051132 


B51117 


000 


2860 










2361 


016055 


122 


030530 


020061 


2862 


^16062 


052504 


0501 15 


000 


2663 










2864 


016067 


105 


05U22 


051117 


2865 


016074 


000123 






2866 










2867 


016076 


044123 


051117 


020124 


2868 


S16104 


052504 


050115 


000 


2869 










2870 


716111 


122 


051505 


040524 


2871 


016116 


053122 


020123 


020075 


2872 


016124 


000 






2873 










2874 


016125 


120 


051501 


020123 


2875 


016132 


041101 


051117 


042524 


2876 


016140 


000104 






2877 










2878 


016142 


040520 


051523 


051505 


2879 


016150 


036440 


000040 




2880 










2831 


!^161S4 


051127 


052111 


042524 


2862 


016162 


020116 


000 




2883 










2384 


216165 


057 


000040 




2885 










2886 


016170 


000040 






2887 










2886 


016172 


051105 


047522 


051522 


2889 


016200 


050040 


05U05 


042440 


2890 


016206 


051122 


0S1117 


041440 


2891 


016214 


042117 


051505 


005015 


2892 


016222 


000 






2893 










2694 


016223 


124 


040522 


045503 


2895 


016230 


020040 


041501 


042503 


2896 


016236 


051523 


042105 


020040 


2897 


0i6244 


046440 


053117 


042105 


2898 


016252 


052040 


020117 


020040 


2899 


016260 


052440 


044516 


020124 


2900 


016266 


020060 


052440 


044516 


2901 


016274 


020124 


020061 


051105 


2902 


016302 


047522 


051522 


005015 


2933 


016310 


000 






2904 










2905 


016311 


050 


047516 


042516 


2906 


016316 


006451 


000012 




2907 










2903 


016322 


047507 


042117 


000 


2909 










29iS 


Ei6327 


040 


041440 


042510 


2911 


016334 


045503 


051440 


046525 


2912 


016343 


000040 







MwRTENS 

MSLASHI 

SPACE? 

MCODESI 



.ASCIZ "ERROR FLAli ERROR" 

.ASCIZ "RXll UUMP" 

.ASCIZ "ERHORS" 

.ASCIZ "SHORT UUMP" 

.ASCIZ "RESTARTS a " 

.ASCIZ "PASS ABORTED" 

.ASCIZ "PASSES B " 

.ASCIZ "WRITTEN " 

.ASCIZ "/ " 

.A3CIZ <440» 

.ASCIZ "ERRORS PER ERROR C0DES"<15>'«12> 

.ASCIZ "TRACK ACCESSED MOVED TO UNIT UNIT 1 tRR0RS"<l5><12s. 



.ASCIZ " (N0NE3 "<15><12> 

.ASCIZ "GOOD" 

.ASCIZ " CHECK SUM " 



0|f?XaE,Pl| DUUilt lENBTH BINARY ?U OECIM&U ASCII CONVgHT HQUTlNfc 



291 3 








2914 


716344 


00S015 


054122 


2915 


016352 


027440 


0S1040 


2916 


016360 


030461 


000 


29i7 








2918 


16363 


015 


052^1 2 


29S9 


016370 


045503 


046040 


2920 


'216376 


0521 1 1 


020123 


2921 


016404 


042514 


052103 


2922 


016412 


047440 


052125 


2923 


016420 


02010b 


0a0S22 


2924 


016426 


026105 




2925 


Z16430 


051525 


0471 1 1 


2926 


016436 


0421 17 


030075 


2927 


in6444 


0421 1 1 


030475 


2928 


016452 


005015 


000 


2929 








2930 


ei645S 


015 


051412 


29ii 


016462 


047524 


021^122 


2932 


316470 


044515 


051524 


2933 


016476 


046105 


041505 


29ia 


316504 


020104 


052517 


2935 


S16512 


0431 17 


051K54I4 


2936 


316521(3 


042507 


054 


2937 


016523 


125 


044523 


2938 


Ci6530 


043040 


051111 


2939 


?16536 


030475 


02i9W54 


29«^ 


C16544 


052123 


031475 


29^1 


"'16552 


000012 




2942 








2943 


316554 


005015 


0413515 


2944 


316562 


042504 


026503 


2945 


2^16570 


042055 


051 132 


2946 


3i657t) 


042455 


005015 


2947 








2948 




016604 




2949 








2950 








2951 








29b2 








2953 








2954 








2955 


016604 


000200 




2956 








2957 








2958 


01700(4 


000012 




2959 


i3i7006 


000012 




2960 


!il70l0 


000012 




2961 


K 170 12 


'300012 




29t>2 


017014 


V100012 




2963 


017016 


00001 2 




2964 


G17020 


000012 




2965 


'!17d22 


'500012 




2966 








2967 








2966 









046511 



041505 
044514 
051440 
042524 
020124 
047101 



052123 

040514 
006462 



0471 1 1 
030461 
040530 
000 



. ASCIZ <lb><12>"HXl I / Hxvn" 



.ASCII <lb><l2> "THACK LIMITS SfcLtCTEO OUT OF NANGE, 



,A8CIZ "USING OD80, IDs 1 1 4 "< 1 5X 1 2S' 



.ASCII <lb><12> "SECTUH LIMITS SELECTED OUT OF KANGt," 



. ASCU "U5JNI, firsts! , LASTs32"<lb><l2> 



.ASCIZ <15><12> "MAINUbC-1 l-DZRXA-E" <15><12> 



********* 



******************* 



ITHE FULLOwING LOCATIONS ARE USEU FOR UATA STORAGE , RE TWV COUNTERS 
MCCESS COUNTERS ETC. 



HUF ADRl 


,BL<M «i00 










JRETRY 


COUNTtRS 










WORETRY : 




;for 


SETUP 


puhpose 


RDWETPY MUST aE FIRST ON RETkY LIST 


WTRETRY : 












ODRETRY : 


1^. 










DATARETRYI 


la. 










P2WeTRY { 


10. 










PRETRY! 


1^. 










CRETRY! 


x^. 










SRETRY ! 




IFOR 


SETUP 


PURPOSE 


SRETRY MUST BE LAST ON RETRY LIST 



jgenekal errur counters 



MAlNU£C»li-DZRXA-E 



MACYU 27(732) 20-SEP-76 I5:4b PAGE 55 



ZRXAE, 


Pll 


OOUeLt LENGTH ttlNARY 


TO DECIMAL ASCII 


convfkt 


ROUTINE 




2969 


317024 


000000 


pahlogs 








;FOR SETUP PURPOSE PARLOG MyST BE FIRST ON 


2970 


217026 


000000 


MPAHLOG! 











2971 


017030 


000000 


noerlog: 


\A 








2972 


317032 


000000 


UKNINTI 










2973 


017034 


000000 


INTER! 


(a 








2974 






;ORIVt 


RELATED 


ERROR 


COUNTERS 


2975 


017036 


000000 


ZSEKLOG! 









;"Z" LOGS ARE FOR DRIVE UNIT "Z"ERO 


2976 


017040 


30000^ 


SEKLOG! 









;non"z" logs are for liRIve unit 1 


29/7 


217042 


000000 


ZCRCLOGS 











2978 


n7044 


000000 


CRCLOG! 








? * * * NOTE! * * * 


29f9 


017046 


000000 


ZCHCBAO: 









;error codes must not be changed 


2980 


017050 


000000 


CRCBAU! 


!S 






?FROM this order, ERROR DUMP 


2981 


0170S2 


000000 


ZR0L06I 









;assumes tags of logs are in order shown. 


2982 


S17054 


000000 


ROLUG! 











2983 


C17056 


000000 


ZwRTLDGJ 










2984 


017060 


000000 


WRTLOGJ 










2985 


017062 


000000 


ZUAT&LOGJ 











2986 


317064 


000000 


OATALOGI 











2987 


017066 


000000 


ZDOMISl 











2988 


017070 


000000 


DOMISJ 











2989 


317072 


000000 


ZUNXDOI 










2990 


P17kJ74 


000000 


UNXOOl 


\d 








2991 


017076 


000000 


ZHSEKLOGt 











2992 


017100 


000000 


HSEKLOGI 











2993 


017102 


000000 


ZHCRCLO&I 











2994 


017104 


000000 


hcrcuob: 











2995 


017106 


000000 


ZhCKCbAOl 











2996 


017110 


000000 


HCKCSADI 











2997 


017112 


000000 


ZHROLOGi 











2990 


017114 


000000 


MHULOGI 











2999 


017116 


000000 


zhwrtlQGi 











3000 


017120 


000000 


HWRTLQUJ 











3001 


017122 


000000 


ZHDATALOGt 











3002 


017124 


000000 


huatauogi 











3003 


017126 


000000 


ZHDDLQGI 











3004 


017130 


000000 


H0DL06I 











3003 
















3006 






lERROR 


CODES 








3007 


017132 


000021 


ERCOOEJ 


,BLKW 


17. 






3006 
















3009 






;th£ following 


2 BLOCKS 


OF WORDS ARE TRACK ACCESS COUNTER AND 


3010 






;head 


MOVED TO 


TRACK 


COUNTERS, THEY ARE DOUBLE PRECISION 


3011 






ICOUNTEHS IN THE FOLLOWING FORMATTI 


3012 






1 










3013 






aoc.x 




LOW 


ORDER WORD TRACK 


3014 






aoc.x*2 


HIGH 


ORDER WORD TRACK 


3015 






ILOC.X-i-4 


LOW 


ORDER WORD TRACK 1 


3016 






IL0C,X*6 


HIGH 


ORDER WORD TRACK 1 


3017 






lETC, 










3018 
















3019 






ITOTAL 


ACCESS 


/ TRACK 




3020 


017174 


000232 


TKACC! 


• BLKW 


232 






3021 
















3022 






ITOTAL 


HEAD MOVEMENT 


TO 


THACK 


3023 


017660 


000232 


HOMOVEI 


.BLKW 


232 






3024 

















MAINDEC«U»0ZRXA^E MACni 2?C73a3 20-SeP-7b iSSttfe PAGE 5b 

DZR3<AE,PU DQUBUE LENGTH aiNARY TU OECIMi^L ASCII CONVERT ROUTINE 



3025 












fTHE FOLLOWING 2 BLOCKS OF 


COUNTERS ARE SINGLE PRECISION 


3026 


















3027 












lEHROR 


PER TRACK ON UNIT 




3026 


020344 


0001 15 






U0TRKI 




sSLt^w 115 




3029 


















3030 












{ERROR 


PER TKAUK ON UNIT 1 




3031 


020576 


0001 15 






UlTRK! 




.BLi^w 115 




3032 


















3033 












ITOTAL 


t«iRITt AND HEAO FUNCTIONS DOUBLE PRECISION COUNTERS 


3034 


021030 


000000 


000000 




WTCNTRJ 




.MORU 0,0 




3035 


021034 


000000 


000000 




rocntr: 




.MQRU 0,0 




3036 


















3037 












;RESTAKT and PASStS COMPLTED COUNTERS 


303a 


021040 


000000 






RESTCNTH! 







3039 


021042 


000000 






PASCNTRl 




W ;FUR SETUP PURPOSE PASCNTW MUST HE PLACED LAST 


3010 


















30<J1 


021044 


032737 


000020 


010704 


UlLOGI 




BIT »BIT4,UNITSEL 


ITEST FOR UNIT IN OPERATION 


30^*2 


021052 


001402 










BEQ 1$ 


;IF BIT a IS RETURN ANO INC. uNIT COUNTERS 


3043 


321054 


062703 


000002 








ADD »2»R3 


lADJUST THE CONTENTS OF R3 FOR 


3044 
















.'THE ADDRESS OF UNIT I ERROR LOG COUNTERS, 


3045 


021060 


000207 






l$s 




RTS PC 




3046 


















3047 












fSTATISTICAL ERROR RtPORT i 


ROUTEEN 


3048 












?PRINT5 


ALL ERROR LOGS AND 


OPERATING CONDITIONS 


3049 


















30t>0 












305i 


















3052 


021062 


01270b 


001200 




erdump: 




MOV »STACK,SP 




3053 


021066 


104400 


0152^0 








TYPE ,UBLL»- 




3054 


021072 


005737 


02251 4 








TST bHURTRPT 


US SHORT REPORT REQUESTED 


3055 


021076 


E?01405 










BEO IS 


JNO, PRINT LONG REPORT 


3056 


021100 


113^400 


015040 








TYPt ,TAB 




3057 


02U04 


1044'^0 


016(^76 








TYPE ,MSHOKT 


fYES,TYPE SHORT REPQR HEADER 


3058 


0211 10 


000404 










BR 2$ 




3059 


02U12 


104400 


01504(i9 




is: 




TYPE ,TAB 




3060 


5*211 16 


104400 


016055 








TYPE ,MOUIiH 


ITYPE LUNG REPORT HEADEk 


3061 


021122 


104400 


016554 




2$: 




TYPE ,MREV 


JPRINT NAME AND REVISION OF PROGRAM 


3062 


02U26 


004737 


002452 








JSR PC»ICONO 


ITYPE OUT SELECTED DRIVES AND TESTS 


30b3 


32U32 


005737 


PI 2 1 








TST HESTCNTR 


JHAVE THE»E BEEN ANY RESTARTS 


3064 


021 136 


001412 










BED 35 


»N0 


3065 


021 140 


104400 


01bl 1 1 








TYPE fMRESTART 


JYES, PRINT OUT HOW MANY 


30b6 


P2l 144 


01 3737 


0210^0 


021 I5fa 






MOV RE5TCNTR,12S 




3067 


i221 152 


004537 


i 44<ib 








J6R R5,SGLDEC 






02 1 156 


000000 






12$: 




OPEN 




30b9 


021160 


I0a400 


3l52«u3 








TYPE ,UBLLP 




3070 


021164 


005737 


021042 




a: 




TST PASCNTH 


;HAVE any PASSES oEtN COMPLETED 


3071 


021170 


001005 










BNE «$ 


lYES, PRINT OUT HOW MANY 


3072 


021172 


104400 


01bl25 








TYPE ,MNOPAS 


JNOiTYPt PASS ABORTED 


3073 


021176 


104400 


tM52«0 








TYPE ,U8LLF 




3074 


021202 


000412 










BR 54 




3075 


021204 


I04a00 


0lbl42 








TYPE ,MPASS 


;TYPE OUT NUMBER OF PASSES 


3076 


021210 


013737 


021i«42 


021222 






MUV PASCNTR,7$ 




3077 


021216 


004537 


0l«a«b 








JSR R5#Stil.DEC 




3078 


021222 


000000 






7$l 




OPEN 




3079 


021224 


|vJ4400 


015ic52 








TYPE ,MCREF 




30B0 


021230 


005737 


022514 




5$: 




TST 5HURTRPT 


ns THIS A SHORT REPOHT 
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3081 


021234 


001030 










BNE AEKRS 


lYES, DON'T PRINT wRITE/READ TOTALS 


3082 


















3083 












;PRINTb TOTAL NUMBER OF SECTORS WRITTEN AND/OR 


3064 












JREAO 


FOR Trtt DURATION OF RUN TIME, 


3085 


021236 


104400 


01615a 








TYPE fMwRTEN 


IPRINT wRT/kO MESSAGE 


3086 


^'21242 


104400 


0lblb5 








TYPE ,MSLASH 




3087 


021246 


10a400 


015674 








TYPE ,MREAD 




3088 


021252 


104400 


0150«7 








TYPE,DBLSP 




3089 


021256 


012746 


021030 








MOV »WTCNTH,-CSP3 


lADDRESS OF TOTAL i».RITES ON STACK 


3090 


e.21262 


004737 


0ia202 








JSR PCr#»SDB2D 


ITYPE TOTAL WRITES 


3091 


021266 


004737 


014376 








JSR PCRTJUST 




3092 


021272 


104400 


016165 








TYPE ,MSLASH 




3093 


021276 


012746 


021V934 








MOV 8RUCNTR,-CSP) 


lADDRESS OF READS ON STACK 


3094 


021302 


004737 


014202 








JSR PC»#i»SDti2D 


ITYPE TOTAL READS 


3095 


P21306 


304737 


014376 








JSR PCiRTJUST 




3096 


021312 


104400 


015240 








TYPE ,DBLLF 




3097 


















3098 












ITYPE 


OUT MICRO CPU RELATED 


ERRORS 


3099 


021316 


li£l4400 


015052 




AERRSI 




TYPE ,MCRLF 




3100 


021322 


005737 


0171^24 








TST PAKLOG 


IWERE THERE ANY PARITY ERRORS 


3101 


£21326 


001435 










BEQ IS 




3102 


021330 


013737 


017024 


021342 






MOV PAWLOG,2k3$ 


IYE5,TYPE OUT THE NUMBER 


3103 


021336 


004537 


014446 








JSR R5,SGLUEC 




3104 


021342 


000000 






20SI 




OPEN 




3105 


021344 


104400 


015047 








TYPE ,DBLSP 




3106 


021350 


104400 


016017 








TYPE ,MPAR 




3107 


021354 


104400 


015052 








TYPE,MCRLF 




3108 


021360 


005737 


017026 








TST HPARLOG 


IWERE THERE ANY HARD RARITY ERRORS 


3109 


021364 


001416 










BEQ IS 




3110 


021366 


013737 


017026 


021400 






MOV HPARL0G|21S 


IYES,TYPE OUT THE COUNT 


31U 


021374 


004537 


014446 








JSR K5»SGLDEC 




3112 


021400 


000000 






21St 




OPEN 




3U3 


O2H02 


104400 


015047 








TYPE ,DBLSP 




3114 


02H06 


104400 


015755 








TYPE jMUNREC 




3115 


021412 


104400 


016017 








TYPE ,MPAR 




3116 


021416 


104400 


015052 








TYPE ,MCRLF 




3117 


021422 


005737 


017030 




ISl 




TST NOERLOG 


lANY STATUS ERROR FLAG ERRORS 


3118 


021426 


001414 










BEQ iS 


IIF NONE CHECK NEXT ERROR 


3119 


021430 


013737 


017030 


021442 






MOV NOERLOG, 24$ 


IYES,TYPE OUT COUNT 


3120 


021436 


004537 


014446 








JSR R5»SGLDEC 




3121 


021442 


000000 






2431 




OPEN 




3122 


021444 


104400 


015047 








TYPE ,DBLSP 




3123 


021450 


104400 


016034 








TYPE ,MNOFLAG 




3|24 


021454 


104400 


015052 








TYPE ,MCRLF 




3125 


021460 


005737 


017034 




3SI 




TST INTER 


lANY NO INTERUPT ON DONE ERRORS 


3126 


021464 


001414 










BEQ 4$ 


IIF NONE CHECK NEXT ERROR GROUP 


312T 


021466 


013737 


017034 


021500 






MOV INTER, 25S 


lYES, PRINT OUT NUMBER 


3128 


021474 


004537 


014446 








JSR H5,SGLDEC 




3129 


021500 


000000 






25SI 




OPEN 




3|30 


021502 


104400 


015047 








TYPE ,UBL5P 




3131 


021506 


104400 


015260 








TYPE ,MINTER 




3132 


021512 


104400 


015052 








TYPE ,MCRLF 




3133 












nVPES 


DRIVE RELATED ERRORS 




3134 


321516 


104400 


015240 




4s: 




TYPE ,DBLLF 




3135 


021522 


104400 


015106 








TYPE ,MUNIT0 


ITYPE OUT COLUMN HEADINGS 


3136 


021526 


104400 


015116 








TYPE jMUNITl 





02«!(&EsPiS OUUeie tENUTH BINARY TU DECIMAL ASCII CONVgkT HOUTINt 



3 J J 7 




I HJ ^ ^ 'fl *0 


01617 










3 1 jg 




I 04430 


016067 




T VOP 








32 1 5*12 


I y 4 4 0!(3 


1 5 k' 5 2 




TYPF 








^2 1 5<lfe 


S 2 










JH2 USfcD AS AN ERROR PRINTEO fLAG 




550 


013746 


022516 








frUl «t/Un Ur &Cr(u nfJKft UN alALf^ 


3^42 


021554 


wi f 


014 4 62 








JPUT ADDRESSES OF ALL RECOVERABLE 


3 « 3 


2 1 5 6 




1 i|506 








itRKuK ntoSAlitS UN TMt aTACK 


3 i ^4 




012746 


014527 




MflU 






3 I «5 


"^■21570 


0137 46 


016 010 




Mr u 






3 


C 2 1 5 7 4 


0127 46 






Mnu 


w rlKtl AU f *> lor J 




J I 


G2 1 b00 


012746 


1 bb4u 




MQV 






3 1 <lg 


2 1 b <? <4 


0127 4b 






MOV 


»MCRC,-CSP3 




3H9 


C 2 1 b 1 ^ 


0127 4 6 


Pi 1 5 7 7 5 




HOV 


»MSEEK,«15P3 




313|? 


P2 1 b 1 4 


0127 31 


01 7 3 6 




MOV 


»ZStKUDG»Rl 


»rUI rlKol EWKUn UUUN 1 tK IN HtuIaifcR 


3 1 5 1 


02 1 b22 


/1 5 7 16 






TST 


tSPJ 


IGET ADuRESS OF MESSAbC 


3 i 52 




If J IP A ^ 






aEQ 


bS 


fIF FINIShEU soft EHRS 00 HARD ERRS 


3lS3 


32 1 b24 


005 721 






TST 




tTc huruP n miiMTt-D ncAU 

flo UniMC V} LUUNICK UUtAK 


3lba 


^ 2 1 fc 2 6 


0010 05 






BNE 


6S 


INUjiWU rl*lNI trfrtUn L>UUN|tK 


3 J 55 


C2lfe30 


005711 






T5T 


IKU 


119 UNIVC 1 WUUNTC.K wwtAK 


Sl^b 


1 b32 


001 00 3 






mnE 


bS 


»NU,l»U rrfiNI tKKUn (•UUNICK 


3 i 37 




0057 21 






TST 


tHn + 


lADjuai Kl rUH NtXT UNIT w LOUNTfeK 


3|5g 


02163b 


00S7 26 






TST 


ISH) + 


lAUkiUai aiAU'^ run NCAl AUUKtaS 


31^9 


321640 


0007 6 7 






HW 7 » 


trn TC^QT KiCvT DAty fiF r*niiKtTbuc 
#UU ICOI NtXI rAIK Ur LUUNlfta 


3160 


''21644 


305202 






INC 


K2 


IMAkE ERRUR PRINTED FLAG NON ZERO 


3 1 b } 






21654 




MOV 


-CHI) ,303 


ITYPE CONTENTS OF UNIT ifl COUNTER 


31^5 


C 2 1 6 5 


3045 3 7 


(1 1 4a4b 




JSR 


W5,SGL0EC 




3 i b3 




000000 






UPEM 






3 I &4 






r J bi^* 4 7 
> 




TYPE 


,Uttl.6P 




3 1 b5 


? 2 1 6 6 2 


3u572 I 






TST 




•Ar\ii!CT ui cnu iiKiTT t rrntK. TtD 
lAUJuai "1 rUr' UNil 1 l-UUIVIC" 


31 6b 


f ■ 2 1 & 4 


012137 


2 I 7 4 




MOV 


CR1)+»31S 


STVDP rnilMTCD flU T AfiHW fiF ivll.vT tM Dl 


3 1 &7 


"21670 


0^4537 


(/. 1 a 4 fe 




JS« 


W5,SGtl)tC 




31^8 




000000 






UPEN 






3169 


^2 1 676 


1044^0 


I bid '1 7 




rv pt 


,UBL,6P 




3 1 70 


1' 2 1 7 32 


3126 3 7 


021710 




MUV 


tsp) + , 




3 J 7 1 




i 4 1(4 






TYPt 




»TYPt ckROR "tSSAGE rHUM STACi^ 


3i 75 


C2 1 7 1 


000000 




J 3$ • 


□ PEN 






31^3 


'321712 


1 i| 1-1 


1 "3 li' 5 2 




TYPt 


,MCH|,F 




3 1 7a 


•'21716 


7 4 '4 






Hh 73? 


• t: T M V T r 1 1 1 1 Ni T t- p 


3175 


< 2 1 7 2 


103 4 00 


f5 15052 


3S 5 


TYPt 






3 1 7fe 


2 1 7 2 4 


'1137 4b 


2 2 5 1 b 




MUV 


ZtWU,-tSPJ 


/rUI MwU" \Jr CCt% \J riAKfV yni irit aiAU" 


317 7 


■321 ^ 3 


312 7 4b 


v" 1 5 e 1 5 




MOV 


»HL)UHW,-ISP) 


f"Ui AUUf^Caa Ur ALU "AnU t"WUn 


317 8 


L 2 1 7 34 


0127 4b 






HOV 


»MUtKHDR,-CSP) 


»~taoAut,a UN Int a 1 A U 


3 1 79 


1.2 1 7 4 




1 6 1 




MOV 


»MiNRnt,-t5P) 




3160 


V' 2 1 7 4 4 


0i274o 






MU V 


BMKtAU» - CSP3 




3iai 


k;- 2 1 7 5 


(512746 


H I 5 6 




MUV 


SMHADCWC , - CSP] 




3162 


021754 


012746 


01b73b 




MOV 


»MCRC,«(SP3 




3183 


r.?i760 


0127«6 


?llb775 




HOV 


»M5ttK,-CSP3 




3iaa 


021 764 


012701 


1 7 7 6 




MUV 


»ZHbtKLOG,Pl 


fPUT f-IRST HARD ERROR COUNTER IN Rl 


3165 


t^2l 770 


005716 




12&i 


TST 


tSP) 


{GET AUuRtSS OF MtSSAbE Fr<OH STACK 


3iab 


/21772 


0014 37 






HtQ 


ttfcHRS 


;IF FINISHED kRROR LOGS 


3187 


^2l77a 


yti572i 






Ti)T 




US OXI^^ COUNTER CLEAR 


3l8§ 


3217 76 


0011? "^S 






BNE 


11% 


JNO, PRINT ERROR CUUNTtR AND MESSAGE 


3169 


f 2 2 1^ 1? 


00571 1 






T6T 


IRl) 


ns DRIVE 1 COUNTER CLtAR 


3190 


722^502 


001003 






WNE 


I ia> 


;no,GO print THt ERROR 


3191 


•;'2?00a 


D05721 






16T 


IRIJ* 


JADJUST Rl FOR NEXT UNIT ^ LOG 


3195 


i'22''?fe 


0W5726 






TbT 




.•ADJUST STACK FOR NEXT ADDRESS 
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ZRXAg, 


,pn 


D0U9LE 


LENGTH BINARY TU DECIMAL 


ASCII CONVERT ROUTINE 






3193 


?22010 


0007 6 7 












319^ 


C.22ei2 


014137 


K22*i22 US! 




MOV -(RU,32$ 




UYPE CONTENTS OF UNIT COUNTER 


3195 


^22016 


004537 


1 a 4 tt 6 




JSR WbiSGLUEC 






3196 




:130000 


32S: 




OPEN 






3197 


'^22024 


104400 


015i'47 




TYPE fUtiLSP 






3198 


322030 


005721 






TST CHU + 




/ADJUST Rl FOR UNIT 1 COUNTER 


3199 




012137 


022042 




MOV CRn + ,33S 




?TYPE UNIT 1 uOG 


3200 


r22036 


004557 


f n a « 4 6 




JSR KbfSGLUEC 






3201 


*22042 


000000 


33S; 




OPEN 






3202 


t'22044 


104400 


tilb0a7 




TVPE ,DBLSP 






3203 


0-22050 


10aa00 


i/j 15755 




TYPt ,MyNKtC 




UYPE UNRtCOVERASLE 


3204 


e22054 


0126 37 


022062 




MUV ISP)+,14S 






3205 


022060 


10440a 






TYPE 




lERROR MESSAGE FROM STACK 


3206 


e22062 


000000 


la&s 




OPEN 






3207 


K 22'^64 


1 04400 


015052 




TYPE ,MCRLF 






3208 


r22370 


000737 






BR 12$ 




IGET NEXT LOG 


3209 








{PRINTS 


ERRORS PER ERROR 


CODES 




3210 


022072 


005702 


BERRSi 




TST R2 




,'WAS AN ERROR PRINTED IN THE LAST CROuP 


3211 


U22074 


001004 






BNE b$ 




UF R2 IS NONZERO BRANCH 


3212 


^22076 


104400 


01bw40 




TYPt ,TAB 






3213 


S22102 


104400 


01631 1 




TYPt ,MNONt 




;type none 


3214 


t'22106 


005002 


54J 




CLR N2 




;CLEAR ERROR PRINTED hLAG AGAIN 


3215 


022110 


104«00 


01524W 




TYPE iDBLUF 






3216 


r-22U4 


104400 


161 72 




TYPE ,MCODtS 




UYPE ERROR PER ERROR CODE 


3217 


Q22120 


012700 


000001 




MOV »1,R0 




ISET UP COnE COUNTER 


3218 


"22124 


012701 


017132 




MOV 9ENC0Ut,Rl 




IGET AOUR OF FIRST ERROR CODE 


3219 


022130 


020027 


(^.00022 2$i 




CMP R0,i»22 




US THE LAST CODE PRINTED 


3223 


022134 


001001 






BNE 3$ 




INO,TEST THE NEXT ONE 


3221 


022136 


000427 






BR fYPTRK 




IYES,GO PRINT TRACK INFOMATION 


3222 


022140 


005721 


3SI 




TST IRI)+ 




UEST FOR WORD, GET NEXT ADDRESS 


3223 


?22i42 


001002 






BNE IS 




UF NOT TYPE COUNT AND CODE NUMBER 


3224 


'?22144 


005200 






INC K0 




UNO CODE COUNTER 


3225 


022146 


000770 






BR 2S 






3226 


322150 


014137 


022160 ISI 




MOV '•CRn»4S 




IPUT CONTENTS OF COUNTER IN OPEN 


3227 


022154 


004537 


5^14446 




JSR R5,SGLDEC 




IFOR TYPE OUT 


3228 


1^22160 


01^0000 


4il 




OPEN 






3229 


222162 


104400 


0lbi^40 




TYPE ,TAe 






3230 
















3231 


02216b 


010002 






MOV R0,R2 




IPUT CODE NUMBER IN REGISTER TO 


3232 


022170 


006302 






ASL H2 




UYPE IT OUT IN THE FROM OF ERROR CODE 


3233 


322172 


006302 






ASL Re 






3234 


022174 


006302 






ASL R2 






3235 


C22i7fe 


010246 




MUV 


K2,-15P3 


nSAVE 


R2 FOR TYPEOUT 


3236 


e22200 


104402 




TYPOS 




UGO TYPE — OCTAL ASCII 


3237 


022202 


004 




.BYTE 


4 


nTYPE 


4 DIGITCS) 


3236 


C22203 


001 




.BYTE 


I 


f ITYPE 


LEADING ZEROS 


3239 


022204 


104a00 


015052 




TYPt ,MCRLF 






324g 


022210 


S0S200 






INC H0 




ISET UP FOR NEXT COUNTER 


3241 


022212 


005721 






TST CRU* 




IGET NEXT ERROR COUNTER 


3243 


022214 


000745 






SR 2$ 






3243 








IPRINTS 


TRACK ACCESS, MEAD MOVEMENT, AND ERRORS PER TRACK 


3244 


022216 


005702 


TYPTRKI 




TST Re 




IWAS AN ERROR PRINTED IN LAST GROUP 


3245 


022220 


001004 






BNE bS 




UF PRINTED ERROR FLAG NONZERO BRANCH 


3246 




104400 


015040 




TYPE ,TA8 






3247 


^^22226 


104400 


016311 




TYPE ,MNONE 




UYPE NONE 


3246 




104400 


015240 SSI 




TYPE ,U8LLF 
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3249 


022236 


0057 37 


02251 4 




T5T SMURTRPT 


IIP SHORT REPORT DON'T TYPE TRACK ACCESS OR 


3250 


322242 


001121 






BNE bS 




3251 


022244 


104400 


01 6223 




TYPE fMTKLUG 


ITYPE FORMAT OP ERROR PRINT OUT 


32S2 


022290 


00S037 


022330 




CLR 2S 


JTRaCK ADDRESS COUNTER 


3253 


022254 


012704 


017170 




MOV »TKACC-4,H4 


ISET UP ADDRESS OF TRaCK ACCESSED 


3234 


022260 


012703 


017654 




HOV #HUM0VE«4 ; R3 


lAODRESS OF HEAD MOVEMENT COUNTER 


3255 


022264 


012702 


020344 




MOV #U0TRK|R2 


lUNiT ERROR PER THALK COUNTER 


3236 


022270 


012701 


020576 




MOV #U1THK»R1 


JUNIT 1 ERROR PER TRACK COUNTER 


3257 


022274 


062704 


000004 


I & S 


ADD 


lADJUST FOR ADDRESS Of" NEXT COUNTER 


3258 


022300 


0057 1 4 






TST tR4) 


fHAS THIS TRACK SEEN ACCESSED 


3259 


022302 


an 1 01 1 01 

vlv 4 V ft V 






UNE 10<& 


lYESfPRINT OUT THE COUNTERS 


32b0 


022304 


005764 


000002 




TST £CW4) 


ITEST UPPER WORD OF ACCESS COUNTER 


32^1 


022310 


001005 






BNE 10s 




3262 


022312 


062703 


000004 




ADD )t4 » R3 


ITHIS TRACK HAS NOT BEEN USEO» ADJUST 


32^3 


022316 


005722 






TST IK2 J ♦ 


IREGISTERS TO POINT TO NEXT TRACK COUNTERS 


3264 


022320 


005721 






TST lRi3+ 




3265 


022322 


000463 






12% 


?TEST FOR LAST TRACK 


3266 


022324 


004537 


014446 


105 { 


JSR HSjSGLUEC 


JTYPE TRACK NUMBER 


3267 


022330 


000000 




2S ! 


OPEN 


JTHIS LOCATION USED AS TRACK aDDR COUNTER 


32b6 


022332 


104400 


016170 




TVPt , SPACE 




3269 


022336 


010446 






MOV K4»-tSP) 


;type track accessed count 


3270 


022340 


004737 


01 4202 




JSR HC>#«SDd2D 




327| 


022344 


004737 


014376 




JSR PC»RTJUST 




3272 


022350 


104400 


016170 




TYPE fSPACt 




3273 


022354 


062703 


001^004 




AOO 9iifRS 




3274 


022360 


010346 






MUV W3»-CSP5 


Hype head moved to count 


3275 


022362 


004737 


01 42^2 




JSR PC»P*SDB2D 




3276 


022366 


0047 37 


014 376 




JSR ^'CfRTJUST 




3277 


022372 


1 04400 


0lis047 




TYPE ,P8LSP 




3278 


322376 


104400 


01617 




TYPE , SPACE 




3279 


022402 


0057 1 2 






TST IH2) 


J ARE THERE ANY UNIT ifl ERRORS 


3280 


022404 


091421 






tJEQ £0* 


;NO»ChECK UNIT I 


32B| 


0224 06 


012237 


0224 1 6 




MOV lHii3 + |3$ 


?TYPE UNIT ERRORS 


3282 


022412 


004537 


014446 




JSR H5,SGLUEC 




3283 


0224 1 6 


000000 




3& t 


OPEN 




3264 


022420 


0057 1 1 






TST IRl ) 


JARE THERE ANY UNIT I ERRORS 


3285 


022422 


001420 






BEQ n 


INOrGO ADJUST POINTERS 


3266 


022424 


1044 00 


0161 70 




TYPE jSPACE 




3287 


022430 


104400 


015047 


23$ t 


TYPE ,UBLSP 




3288 


022434 


012137 


022444 




MOV IR1}+,4S 


JTYPE UNIT 1 ERRORS 


3289 


^22440 


004537 


014 446 




JSR W5,SGLUEC 




3290 


022444 


000000 




4s: 


OPEN 




329i 


022446 


000407 






HR lis 


?G0 To NEXT TRACK 


3292 














3293 


C22450 


005722 




2031 


TST IRef)* 


JNO ERRORS, ADJUST REG, FUR NEXT COUNTER 


3294 


322452 


ak)571l 






TST IHl) 


;ARE there ANY UNIT 1 ERRORS 


3295 


022454 


001403 






»EQ 


JNOfGO TO NEXT TRACK 


32<»6 


022456 


104400 


015040 




TYPE ,TAB 


;yes,type tar for placement 


3297 


E22462 


000762 






IR 223. 


;go type the numbcR 


3298 


022464 


005721 




7&1 


TST {.RD* 


JNO errors, adjust REG, FOR NEXT COUNTER 


3299 


022466 


104400 


015052 


US! 


TYPt ,MCRLf 




3300 


022472 


005237 


022330 


l2Si 


INC 2$ 




3301 


022476 


323727 


022330 


000115 


CMP d$i»U5 


;haVE all TRACK ERRORS BEEN TYPED 


3302 


022504 


001273 






tJNE IS 


;N0,TyPE THE NEXT ONE 


3303 


022506 


005037 


022514 


bil 


CLR SHURTHPT 


;SET UP FUR LONG REPORT 


3304 


022512 


000000 




HLT17S 


MALT 


>YES DONE 
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3305 
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3307 022516 000000 ZEROi k) 
3308 

3309 000001 .END 
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TABLE - 


- USER 


SYMBOLS 


















AD JSUM 


005b5b 


r50 


1160 


I 177# 






















L)2i3l6 


3061 


3099<« 






















AS TAT 


010070 


822 


979 


986 


1061 


1113 


1459* 


1462 


1465 


1579# 


1601« 


1611 




B AOS YT 


00643b 


1170* 


1171 


1172 


1223 


1284# 
















9ERRS 


022072 


3166 


3210# 






















8 1 T0 H 


000001 


138« 


966 






















8 1 T (tf 8 


k}k10001 


128» 


138 






















8 1 T0 1 ■ 


000002 


127# 


137 






















8 1 T!?£ * 


000004 


126» 


136 






















8IT03 a 


0000 1 


125» 


135 






















8 1 T0'* s 


000020 


124« 


134 






















8IT05 8 


000043 


123# 


133 






















8 1 T0b * 


200100 


122» 


132 






















B I T 07 8 


000200 


12U 


131 






















B I T0B a 


000400 


120» 


130 






















8IT0'' « 


001000 


1 19# 


129 


























137» 


822 


979 






















i(]02000 


UBff 
























B I T 1 1 s 


P 4 


I I7tf 
























81 T l2 a 


1 0000 


I 16!» 


























020000 


1 15# 
























8 I T 1 *1 » 


84 0000 


1 14« 


1768 


1802 




















BIT |5 s 


1 00000 


1 13# 


520 


1152 


1594 


















fkirr ° 


M 4 


136» 


468 


515 


14b2 


















MTT " 


000010 


135» 
























t Tc * 


(000020 


134* 


880 


1521 


1555 


1582 


3041 














BI 5 * 


tJ 4 


1 3i# 
























8 1 Tb ■ 


3001 00 


132# 


1081 


1113 


1779 


1784 


1 790 














HI ra " 


000200 


131» 


498 


1 159 


1218 


1567 




















13M» 


1091 


1118 


1197 


i4Hb 


1816 














81 T9 « 




12'»« 


804 


1079 


1-^80 


13B2 


1384 














8 P T V t C * 


0000 1 4 


145)» 
























fr4 D n Ki P A 
□ K U N ' A 


? 1 9 3 fe 


1651* 


1659* 


16610 




















u n ki T c 


W 3 1 4 


711* 


718* 


719« 




















D K U r-i 1 K 


01 1320 


1893* 


1900* 


1903* 




















a ^ C » 11 


01007 2 


bbS 


1495* 


1494 


14 96 


1580ft 


1608* 


1617 












OU' AUR 


01 feb04 


1177* 


1176* 


1182* 


1 165* 


118b 


1660 


1756 


2955*( 










B Y T EC N 


""S i. /i T /I 


/bJ* 


7o0« 


1157* 


1174* 


1219 


1236* 


1283# 


1399 


1409* 










311142 


rdb* 


1811 


1814* 


1815* 


1832* 


1848<^ 
















20562b 


1 170# 
























r ^ 


W05746 


llbl* 


1171* 


J 179* 


I 180* 


1181* 


1 182 


1183* 


1184* 


1185 


1189» 


1252 




* 


1 04405 


654 


771 


777 


844 




1005 


1010 


1031 


1036 


I06irf 


1087 


1094 1120 






1 19*5 


1232 


1244 


1262 


144*1 


1449 


1470 


1479 


1503 


1622 


2489# 




Q Q M w n 


"i54022 


809 


86b« 


9a4 




















CONTl 


;?04366 


951 


9bH)> 






















CONT10 


005400 


1080 


I 1 139 






















CONTU 


30527b 


1069 


1094# 


1122 




















CONTU 


b02542 


047 


b51« 






















CUNTU 


203310 


779 


761S 






















CONTH 


.?03b50 


851 


a53» 






















C0NT15 


004654 


1 41 1 2 


1 1 4t 






















CONTib 


005000 


IH36 


1040» 






















C0NT17 


?05313 


1096 


1098» 






















C0NT2 


0ic'4436 


961 


970» 






















CONT20 


"06202 


1234 


1236» 
























007244 


1451 


1453# 
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C0NT22 


W11070 


1824 


1833» 






















C0NT3 


306412 


1243 


I276ii 






















CONfa 


003276 


773 


7 77« 






















CONT^> 


003336 


762 


785 


7«7« 




















CONTb 


005112 


1050 


10t»0# 






















C0NT7 


035076 


1057# 


1075 






















CR » 


C.00015 


53* 


2174 


2184 




















CRCPAD 


017050 


2980# 
























CNCEK 


P04560 


987 


995# 






















CRCLUG 


Z1704a 


e;9 76« 
























CR£T«Y 


017020 


937* 


1016* 


29b«« 




















CHLF a 


000200 


54» 


2145 


2184 




















DATABy 


010416 


167 1# 


1680* 


1690* 


1699* 


17(09* 


1717* 


1726* 


1728* 


1741* 


1750* 


1754 


1755 


OATACK 


004126 


9|^)6)» 


938* 


998* 


1206 


1239 
















DATACR 


r'04732 


997 


10itfl 


1028« 




















OATAfcR 


006000 


1173 


1197# 






















DATALO 


017064 


2966» 
























DATARE 


017012 


934* 


1265* 


2961# 




















DATA0 


010422 


1662 


1660« 






















DATAl 


010434 


1663 


1690» 






















P8LLF 


315240 


615 


788 


8b2 


956 


9bb 


1022 


1054 


1072 


1 106 


1272 


1586 


1593 275fc<« 






3053 


3069 


3073 


3096 


3154 


3215 


3248 












DBLSP 


015047 


587 


605 


610 


1222 


1226 


1554 


1565 


1571 


2709« 


3068 


3105 


3113 3122 






3130 


3164 


3169 


3197 


3202 


3277 


3267 












DDCHK 


CJ05204 


9^0 


1079» 






















POERR 


e05260 


1M91« 


1124 






















DDISP s 


1 77570 


e>0« 


346 






















00M|5 


017070 


2988# 
























DORETR 


2-17010 


658* 


671* 


933* 


1100* 


296k]# 
















OELUNI 


010074 


793 


1536 


1582# 




















D15PLA 


P01216 


346« 


448* 






















DISPRE 


BO0174 


190« 


446 






















DONE 


010706 


18k:i0« 


18^8 






















DONEBIa 


000040 


I6lff 


1405 


1426 


1467 


















DONECK 


007122 


487 


510 


660 


610 


945 


1422# 


1466 


1524 


1603 








DRVSWp 


006544 


725 


I330l» 






















DRY! 


iZ01614 


503 


509» 


514 


523 


















DSWR a 


177570 


59# 


345 






















OTESTP 


001212 


344# 


499 


501 


504 


540 


542 


547 


804 


1079 


1360 


1362* 


1364* 


O01OAD 


014643 


535 


2662» 






















EEilE a 


000103 


163* 


1167 






















EMPBUF 


005536 


999 


1154*» 


1194 


l?68 


1279 
















EMPDUN 


006212 


1162 


1239# 






















EMPER 


005750 


1163 


1191» 






















EMPFLA 


005622 


1 16a« 


1175 


1237 




















EMTVECa 


000030 


i48# 
























ERCNTR 


006442 


1000 


1158* 


1 198* 


1204 


1242 


1248 


1S66» 












ERCOPE 


017132 


1499 


3007» 


3218 




















EROuMp 


021062 


215 


1598 


3052# 




















ERRVEC" 


000004 


141# 
























ERWRT 


004124 


709* 


813 


905» 


1065* 


















EXIT 


006432 


1156 


1277 


ie6i« 




















FBIE s 


000101 


162# 


757 






















FIUlBu 


003136 


750» 


766 


786 




















FII.LDO 


003372 


751 


800# 






















FILLER 


003214 


752 


763« 
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0031 76 


TS8# 


7fei 
















FIRST 


001102 


g46# 


247 


595 


600 


6i^2 


60 7 


617 


625« 


2086 






1664 


lfe99# 
















FLOATl 


iiS06 


1665 


1717$ 
















FUNCTI 


004120 


003^ 


606% 


892^ 


893 


903# 


941« 


1514 


1521 


1562 




010312 


736 


915 


1 135 


1295 


1312 


1 331 


1 358 


1651^ 


1636 


GETSfiC 




747 


932 


2 1 














GETTKA 


011 25i| 


739 


918 


1138 


1398 


I3ltj 


1 33« 


1364 


1372 


1 S92# 


GETyN I 




738 


917 


1137 


1297 


1314 


1333 


1337 


1 363 


1 7 7 9# 


GNS ^ 


A » ^ $ ^ ^ y 


24d2 


24d3 


2484 


2485 


248 7 


2489 


2490 


2491 


2492 


GOOOBy 


006440 


1227* 


1229 


12859 














GTSWH s 


10440^ 


4S4 


2487# 
















HARDSK 


003676 


BSa 


856 
















HCNTHl 


007200 


1392* 


1401*! 


1415* 


1424^ 


1430^ 


|438# 


1 809i^ 


1 837 * 




HCNTH2 


007202 


1 425a 


1 431 * 


i«32 


1439^ 












HCRCBA 


917110 


2996# 


















HCRCLO 


017104 


2994# 




















017124 


3Mt^2# 


















HDDLOG 


317133 


3004# 


















HOHOVE 


01766E 


19d4 


3023iSf 


3254 














HERE 


011 140 


1340 


18461^ 
















HLTi0 


004652 


10l3s 


















HUTU 


004730 


1026# 


















HLTi^ 


004776 


i039# 




















005306 


1 09 7« 


















HLTia 


006200 


1235# 


















HLTi5 


007242 


1 452i 


















HLTlfe 


01 1062 


1831« 


















HLT17 


022512 


3i04# 


















HUBS 


007 176 


i a35# 


















Hi,T2l 


307120 


1 4 1 8# 


















HLT3 


002662 


674# 


















HLTa 


002132 


570» 


















HLT5 


002S34 




















HLT6 


003306 




















HLT7 


233b4b 


es2# 


















HOME 


302550 


a93 


6S4^ 


85 7 














HPARLO 


3 1702b 


5b5* 


787* 


2970K 


3IW8 


31 1 M 










HRDUOG 


017114 


2998^ 


















HSEKLO 


f 1 7 1 00 


2992^ 


















riT s 


00001 J 


51s 


2i«3 


2184 














HwRTi-O 


017120 




















ICOND 


^02^52 


«535» 


705 


3062 














ID s 


101201 




577 


560 


589 


1 85H* 


18b2 


1938 


1973 


1 995 






20a7# 


2050 
















IONE?(T 




1974? 


1973SI 
















iNiTse 


312216 


7«fe 


931 


20869 














INITTR 


1 U 4 4 


737 


916 


1 13b 


1296 


1313 


1332 


1362 


1371 


ia55» 


INTER 


PI 7 1^3 a 


iaa3« 


2973a 


3125 


3127 












iNTLtA 


312312 


2097a 


2102# 


2109 


2110* 












INfStR 


^07250 


060 


1453 


J «59tt 














INTVfeC 


001204 


266» 


459 


a63 
















P00020 


Ia68 


















LAST 8 


001203 


2a7# 


597 


602 


612 


2089ft 


2090 


2106 






UASTTR 


011722 


2WIW 


2013# 


















S00012 


52"ij 


2178 


21 0« 
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LOAD 

LOGICA 

HABELL 

MASTAT 

HBAOCR 

M8STAT 

MCOOtS 

MCOL^U 

MCRC 

MCRLl" 



MDDER 

HCDMIS 

HDELET 

MDERHD 

MDUHP 

MEMPTV 

HEOP 

MERCT 

MEREUP 

MERHtA 

MERS 

MFXL 

MFIRST 

HGOOO 

MHALTl 

HHALT3 

HHAI.T4 

MHUNG 

MICON 

MID 

MINITl 

MINIT2 

MINTfcR 

MINTVE 

MLAST 

MNOORY 

MNOFUA 

MNON& 

MNONS? 

MNOPAS 

MOD 

MPAR 

MPASS 

HPAT 

HPRES 

msead 

MREC 

MRE3TA 

MREV 

MR8CS 

MR3C08 

MRMII 

MSEC? 



010564 
211130 
015061 
015210 
0i564« 
y 15224 
? 161 72 
014616 
015736 
015052 



P15615 
014506 
015126 
014527 
316055 
315402 
015055 
015333 
P15057 
01506S 
016067 
015366 
015520 
016322 
315724 
0S571S 
'51S732 
015432 
015417 
015514 
015555 
015567 
015260 
0151S0 
015527 
015016 
Q16034 
0163U 
015446 
016125 
015510 
016017 
016142 
015244 
014S67 
015674 
01562? 
016111 
016554 
015167 
015177 
016344 
014604 



1681 
164 
1821 
1610 
1 008 
1616 

1217 
103« 
5b3 
1057 
1512 
3124 
1 108 
1090 
1585 
1214 
2ebl# 
1192 
1820 
1247 
1818 
1507 
1254 
764 
606 
1256 
1025 
673 
569 
1417 
636 
568 
490 
S17 
1447 
482 
611 
648 
1482 
290S# 

630 
2874# 
383 
562 
1508 
1S60 
670 
95S 
957 

as70# 

441 
472 
477 

1340 
1S49 



170^i 

18428 

2717» 

2744# 

1023 

2747# 

3216 

2677» 

2838^ 

568 
1093 
1519 
3132 
2815« 
2656« 
1592 
127« 
3060 
1193 
2713» 
2768# 
2715# 
2719« 
2864# 

765 
2798# 
290e# 
2835# 
2832^ 
2829# 
1434 
2781# 
2796# 
2B04# 
2810» 
2758# 
2734* 
2801# 
1534 
2857# 
3213 
aT87# 
3072 
2794# 

567 
1826 
2752# 
2670» 

982 

967 
3065 
2943# 

555 
2741# 
29141? 
2674# 



3U8 
631 
1109 
1535 
3139 
3177 
3143 
2730# 
2661# 

2777s 



3138 
2774# 



2702# 

3123 

3247 



775 

2878^ 



903 
2618# 



3061 
1513 



3182 




















635 


645 


nb 


792 


874 


959 


9b9 


10ia9 


1024 


1035 


nil 


1213 


1215 


1231 


1257 


1275 


1 aa8 


ia7a 


iaB3 


1506 


1609 


1621 


1813 


1825 


1830 


«;7i 1» 


3079 


3099 


31M7 


il 16 


3173 


ill's 


3207 


3239 


3299 













31«« 



791 2853# 3106 3115 
3075 



990 99i 1056 2827» 3087 3146 3160 
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MSEEK 


015775 


869 


2847# 


3149 


3183 




MStQ 


015354 


1572 


2756* 








MSHQRT 


0160T6 


2867# 


3057 








MSLASH 


016165 


2884» 


3086 


3092 






M5UH 


016337 


1251 


2910^* 








MTtST 


BlSa50 


1566 


2754» 








MTKI.OG 


016223 


289a« 


3251 








MTRK 


0lfl555 


1545 


2666« 










'315312 


ia73 


2764« 








MUNn0 


015106 


639 


1557 


1584 


272a» 


3135 


HUNin 


015116 


642 


1559 


1591 


2727# 


3136 


MUNREC 


215755 


5tj6 


789 


863 


1055 


1073 


MUNxOD 


?lfla62 


U23 


26Sl» 


31«2 






MWRITE 


J16010 


825 


826 


836 


837 


847 


MwRTtN 


?)i6i5a 


288U 


3085 








nEwtkk 


011562 


1928 


1931 


1942 


i9a4 


197(? 


NEXTRO 




972 


974» 


993 


1059 


1 112 


NOtRUO 


Z.17030 


14786 


2971# 


3117 


3119 




NOfcRTY 


006170 


1201 


1205 


I232fe 






nointe 


00720a 


811 


946 


1443# 






NOPRNT 


007502 


1 495 


1503« 








NOSEl. 


201676 


^00 


523» 








00 


£!!1200 




2«5 


575 


580 


5«« 






i'*a4« 


1927 


1 9«0* 


1951 


t9t33* 






2026 


2033 


a044* 






ODCQMP 


C512062 




205l» 


2054 






ODNEXT 


S12012 


2029 


2033» 








002BIG 


ei6363 


621 


2918K 










903130 


749s 


831 


858 


1067 




OPCOND 


^•01702 


502 


505 


5d7 


52«« 




OPEN ■ 


1)00^00 


170)* 


586 


591 


609 


6ia 






1829 


2638 


3068 


3078 


31'<3« 






3206 


3228 


32b7 


3283 


3290 


PARUDG 


C1702<l 


46<^ 


554* 


?70* 


29b9(» 


31 '^0 


PARTtS 


3032aa 


767 


770» 


828 


985 


1 19b 


PASCNT 


r210<l2 


ae6 


1509 


1810* 


1827 


3«39« 


PAT 


0i0«20 


547* 


5a8« 


5a9ft 


550* 


551* 


PATGEN 


010426 


16ttl» 


1682 


1691 






PAT125 


010514 


1666 


I72b» 








PAT3la 


210534 


16b7 


174U 








PC a 


JCR00007 


72# 


487* 


493* 


503* 


510* 






644« 


651* 


652* 


6fa0* 


663* 






7a3* 


746* 


747* 


750* 


758* 






8b0<i 


865* 


867* 


875* 








9a0« 


9c;3« 


931* 


932* 


<9aa* 






999* 


1003* 


1020* 


1029* 


10a6* 






I U9* 


1125* 


1135* 


1136* 


1137* 






121b* 


1241* 


1259* 


1261* 


l?b/* 






I3s^2* 


1312* 


1313* 


1314* 


1315* 






1337* 


1338* 


1339* 


1342* 


1358* 








1 398 * 


1 '129 * 










lb77« 


1603* 


1606* 


1622* 


1681* 






lbsr5* 


1808* 


1836* 


1842* 


18ab* 






21 b6Jf 


2180* 


2182* 


2371* 


2S3W 






30h2* 


5090* 


3091* 


3094* 


3095* 


PCONT 


0W3332 




76b» 


827* 


98«* 


1 1«^«* 


MAINDEC 


-U-OZRXA-E 


MACY 1 1 


27(732) 


20-5EP 


-76 I5:«b 


PAGE 


OZRXAE, PU CROSS 


REFtRfeNCt 


TABLE - 


- USER 


SYMBOLS 




PIRQ 8 


17777a 


58# 










PIRQVEs 


^00240 


152S. 










PRESCH 


y 12 102 


2052 


2055» 








PHESTP 


011362 


676* 


871 


189?« 


19ia» 


1925 


PRETRY 


717016 


749* 


783* 


784 


800* 


935* 


PR0 a 


000300 


75» 










PRl 8 


000040 


76» 










pm 8 


f»00l00 


77i» 










PH3 a 


C100140 


78a 










PR« a 


"^:;^0200 


79ff 


IbBu 


754 






PR5 a 


000240 


80ff 










PR6 s 


030300 


dl» 










PR7 a 




82» 


169» 


438 


701 


1393 


PS a 


17777b 


55» 


56 








PSW a 


177776 


56« 










PTYPl 


303262 


7b4* 


774i» 


aas* 


982* 


119«e* 


PTYPa 


003352 


765* 


790» 


826* 


983* 


1193* 


PlAiRytCa 


t,)e00?4 


ltt7» 


2498* 


2«99* 


2508* 


25ia* 


P2RETR 


017014 


a94« 


560* 


657* 


1486* 


296d# 


RANpAT 


010544 


16b8 


I7tt9» 


1752 






RANGtN 


012122 


1749 


2045 


20b0l» 






RANIJM 


012214 


1750 


2046* 


2047 


2049* 


2051 


RANi 


«12210 


462* 


2061 


2067* 


2072 


2078* 


RAN? 


.112212 


463* 


2062 


2069 


2074* 


20/9# 


ROAFTi^J 


004122 


710* 


904(Sf 


914* 


1049 


1 13a* 


rdchk 


206444 


^23 


1295# 








ROCHR a 


104406 


2430 


2490i» 








ROCNTR 


021034 


942* 


943* 


3035# 


3093 




RDCOOE 


010200 


667 


1601A 








RDDQNE 


004316 


939 


950# 








RDER a 


Z00017 


160» 


1487 


1602 






rderr 


004460 


940 


978« 








RDIE a 


000107 


165*^ 


941 








RDLIN a 


104407 


2491# 










RDLOG 


017054 


2982# 










roonly 


006504 


724 


1312# 








RDRETR 


017004 


468 


707* 


950 


955* 


104«;* 


RD0STA8 


000013 


158# 


1523 








RDlSTAa 


000033 


159* 


509 


1526 






READ 


004200 


920 


931» 


1153 


1316 




READCH 


005526 


1140 


}152«» 


1299 


1336 


1339 


RECAL a 


040001 


167# 


659 








REREAD 


004246 


818 


938# 


984 


969 


1018 


RESREGe 


104411 


2493i» 


2596 








RESTAR 


002700 


214 




1542 


2531 




restcn 


6521040 


704* 


3038« 


3063 


3066 




HESveCa 


000010 


142# 










RETURN 


005454 


1082 


1114 


1125» 






REWRIT 


003400 


801« 


827 








RTJUST 


014376 


2627# 


2647 


3091 


3095 


3271 


RTN 


002676 


656 


677« 








RXCS 


001206 


290# 


473 


491 


509* 


556 






1460 


1467 


1487* 


1523* 


1526* 


RXOB 


'31210 


291iSi 


478 


488 


496 


511 






1489 


1493 


1528 


1532 


1601 


RXERRO 


827404 


1461 


1481 


i465# 







68 



1107 


1273 


2e43# 


3114 


3203 








86<i 


968 


1074 


2850# 


3145 


3179 








1 961 # 


2000 






2032 


2034 


2058 


593 


622* 


1855* 


1856 


1859* 


1860 


1864 


1868* 


19b8* 


1969 


1971 


2001 


2003* 


2015 


2023 


2025* 


774 


790 


873 


1221 


1250 


1511 


1548 


1553 


3112 


3121 


3129 


3163 


3168 


3172 


3196 


3201 


3102 
















3070 


3076 














1561 


1653 


1655* 


1656 


167211 


1834 






513* 


521* 


523* 


564* 


582* 


604* 


619* 


633* 


bb7* 


677* 


705* 


736* 


737* 


738* 


739* 


740* 


809* 


810* 


H17* 


838* 


841 * 


843* 


aaa* 


857* 


894* 


89b* 


901* 


915* 


916* 


917* 


918* 


919* 


945* 


953* 


963* 


970* 


973* 


976* 


992* 


995* 


1052* 


1069* 


1084* 


lWtt6* 


1092* 


U04* 


1110* 


1116* 


I 138* 


1139* 


1 ia0* 


1143* 


1153* 


1 lb0* 


1 lb8« 


1187* 


1270* 


1278* 


1281* 


1295* 


1296* 


1297* 


1298* 


1299* 


1316* 


1319* 


1331* 


1332* 


1333* 


1334* 


1335* 


1336* 


1362* 


1363* 


136«* 


1365* 


1366* 


1371* 


1372* 


1373* 


1488* 


1491* 


1518* 


152'^* 


1524* 


1530* 


1536* 


1538* 


1704* 


1727* 


1749* 


1751* 


1758* 


1760* 


1785* 


1792* 


1869* 


1987* 


2045* 


2076* 


2098* 


2111* 


2152* 


2159* 


2552* 


2555* 


2592* 


2597* 


2641* 


2646* 


2647* 


3045* 


3270* 


3271* 


3275* 


3276* 










1969 


2028 


2055 












29fe3» 
















2526* 


2527* 














2053* 


2055 


2057 


2075* 


2080i» 








1330* 


1361* 


1369* 












1048* 


2958# 














1366 


1373 














1044 


1102 


1267 












3276 
















659* 


665 


757* 


893* 


1167* 


1396 


1405 


1426 


1602* 
















515 


518 


661 


7S9* 


895* 


897* 


U70 


1459 





M^CYII 


27C75g3 


i0«»SEP 


«7fe 15146 




DIRgAiaPU CROSS 




TABLE « 


« USE^ 


SYMBOLS 






1464 


|S40# 












759 


U7i 


1186* 


1227 




2065* 


2066* 


2P67 


2068* 


2069* 




2137 


2S4a^ 


2288 


2313* 


246f3 




2572^ 


2573 


2591* 


2595* 


262 7 




3219 


3224* 


3231 


3240* 




Rl s%ei000| 


64# 


971 


996 


U52* 


i 159* 




2S74« 


2560* 


2566* 


31S0* 


3153 




3191 


3194 


3198 


3199 


3218* 




3298 












65f 


574<^ 


628 


632* 


ITiai* 




257S* 


2581* 


2S82* 


2S87* 


2588* 




3235 


3244 


3255* 


3263 


3?79 




66# 


459* 


460* 


461* 


840* 






1019* 


102U 


1028* 


1030* 




1103* 


1105a 


IU5* 


1117* 


1258* 




2242s 


2245s» 


2250* 


2251* 


2252 




2436 


2438 


2440* 


2442* 


25ia3 




3273« 


3274 










67^ 


715* 


716« 


717* 


Tie 




I89S* 


1899* 


1900 


2227 


2229* 




2292 


2309!^ 


2504 


2521* 


35 n* 




fe8# 


464A 


465* 


466 


466* 




878s 


879* 


862* 


883* 


886* 




i497i» 


149811 


1499* 


1502* 


1510* 






1985* 


1966* 


2228 


223a* 




2^05 


2520t 


2578* 


2182 


2589 




3162^ 


3167* 


3195* 


32id0* 


3227* 




69# 


71 










70# 


72 










2492® 


2570 








SAa00 001520 


ai3 


435# 


571 


650 


675 


SECCNT 012506 




974* 


1 154 


1276* 


209bi* 


SEEKtR 003576 


838 


840# 


992 






SEKI.UG ei70«0 


2976s 










SEKRTy 003672 


831 * 


858^ 


969* 






SEKTYP 0a3?3fa 


648 


865 


db^tt 






SEQs^y 3370ia 


1359* 


1370 








SEQUtN 011370 


540* 


541* 


1359 


1360* 


13^0* 


SEQl 911372 


1904 


1924^ 


i960 






SEoa t3U«26 


19fe!5 


19383 


1959 






SEQS eSH60 


1906 


|95i# 








sEQa Qiism 


1907 


19681^ 








SE135 Jl 1610 


i9t;8 


1995» 








SE06 ^11732 


196^9 


2023« 








SEQ7 cRsaa 


1910 


2044# 


2056 






SGLOEC aifl^^fe 


585 


590 


608 


613 


872 




3^377 


J103 


3111 


312M 


312« 


SHORTR 232514 


lb97* 


3!^54 


3080 


3249 


33^3* 


SP s%JJ00006 


718 


437s 


438* 


439* 


446 




752* 


754ft 


755* 


763 


Svil* 




IMbSa 


1066* 


il62« 


1163* 


S 1&4* 




I4l2sf 


1413* 




1 42B* 


1 4 7 6 « 




1804* 


2J35* 


2136 


2137* 


2139 




2165* 


2169 


2173 


217a 


21^8 




225«? 


2260 


2261 


2?62* 


22^3* 


HAlMDEC-1 1«0ZRKA»£ 


MACYll 


27(7323 


20»SEP 


-76 I5l4b 


patit 


02Hx*E,Pl| CROSS 


WEFtWENCt 


TABLE - 


- USER 


SYMSOUS 






2296* 


2297s 


2304* 


2305* 


23'fl6* 




2i32*» 


2333 


2340* 


2343* 


?344* 




2372 


2374 


2376* 


2377 


2379* 




2404 


240B* 


ga09s 


2410 


2413 




2466* 


2467 


2500* 


2501* 


25^2* 




2521 


2522 


2523 


2524 


2525 




2628 


2639 


2640* 


2645* 


3052* 




3147js 


3148* 


3149* 


3151 


315B 




3183a 


3185 


3192 


32k3« 


3255* 


SPACE 016170 


2866^ 


3137 


3268 


3272 


3278 


SRETRY 017022 


470 


748* 


855* 


936* 


29bb!? 


STACK a 0^1200 


46# 


437 


700 


3052 




START! 00H12 


«68» 










STATER 002046 


513 


554» 


663 


1491 


i53w 


STKLMTs 177774 












STOP 010732 


743 


923 


1143 


1302 


1319 


STYpi (^03626 


836* 


847s 


990* 






STYP2 003720 


837* 


S64# 


991 * 






SUM ?10612 


1179 


1652* 


1754* 


17h2* 




SWHLTi Q03636 


846 


d49# 








SWR 001214 


345« 


436s 


443 


447* 






1011 


1014 


1032 


1037 


1040 




1245 


1263 


1445 


145P^ 


1471 


SWREG 300176 


19i# 


447 


452 


2327 




SW0 a 000001 












SW0@ s 000001 


100# 


110 








SW01 s 000002 


99# 


109 








3W02 ^ 000004 


9a# 


108 








3W03 8 000010 


97# 


107 








SW04 8 000020 


96# 


106 








SN05 « 000040 


95# 


105 








SW06 8 300100 


94# 


104 








SW0? s 000200 


93# 


103 








SW0a » 000400 


92* 


102 








SH09 » 001000 


91# 


101 








SWl a 000002 


!09# 










SWi0 e 002000 


90^ 










SHU 3 004000 


89^ 


761 


853 


1014 


1040 


swii t 0i0000 


88# 


1202 








SW13 8 020000 


87i 


772 


845 


1006 


103^ 


SW14 » 040000 


86# 


1323 








SW15 ® 100000 


65# 










SM2 9 000004 


i08« 










SMS 8 000010 


107# 










SW4 !i 000020 


106« 










SW5 s 000040 


i05# 










SW6 8 000100 


104# 










SW7 8 000200 


103# 










SW8 s 000400 


102# 


6SS 








SW9 S5 001000 












S2BIS 0164S5 


624 


2930# 








TAB 015040 


643 


1615 


2706# 


3056 


3059 


TARGET 011360 


877 


886 


897 


1177 


1180 




i97l« 


1973* 


1981 


1999* 


2004* 


TBJfVEa 000014 


1430 










TEST 002140 


542* 


543!S 


544* 


54?* 


546* 



70 



1228* 


1956* 


I9b7* 


I9S8* 


2060* 


2061* 


2062* 


2063* 


2070* 


2071^ 


2072* 


2073* 


2374 


207S 


2135 


2136* 


2467* 


2468 


2469* 


2470* 


2471* 


2472* 


2500 


2525* 


2628* 


2629 


2630 


2632 


2634* 


2636* 


2639* 


3217* 


1208 


1211 


1218* 


1280* 


2289 


2312* 


2501 


2524* 


3155 


3157 


3161 


3165 


3166 


3164* 


3187 


3189 


3222 


3226 


3241 


3256* 


3264 


3264 


3288 


3294 


1703* 


1706 


2290 


2311* 


2502 


2523* 


2571* 


2574 


3140* 


3160* 


3210 


3214* 


3231* 


3232* 


3233* 


3234* 


3281 


3293 














842* 


859* 


861* 


952* 


954* 


962* 


964* 


1002* 


1045* 


1047* 


1051* 


1053* 


1068* 


1070* 


1083* 


1085* 


1260* 


1269* 


1271* 


1422* 


1426 


2226 


2235* 


2241* 


2261* 


2291 


2310* 


2426 


2427* 


2428 


2431* 


2432 


2S22* 


2579* 


2564* 


2590* 


2591 


3043* 


3254* 


3262* 


1656* 


1657* 


1658* 


1659 


1660* 


1755* 


1756 


1897* 


2230* 


2231* 


2232 


2233* 


2247 


2249* 


2257* 


2260* 


2580 


2586 


2588 


3253* 


3257* 


3258 


3260 


3269 


469* 


470 


585* 


590* 


608* 


613* 


872* 


877* 


887* 


888* 


869* 


890* 


891* 


1220* 


1249* 


1496* 


1 54 7 * 


1552* 


1^28* 


1839* 


1942 


1 98 1 * 


1982* 


1983* 


2236* 


2238* 


2239* 


2240* 


2241 


2259* 


2293 


2308* 


2645 


2648* 


3067* 


3077* 


3103* 


3111* 


3120* 


3128* 


3266* 


3282* 


3289* 












2091* 


2092* 


2093* 


2100X 










1573 


IB94 


1896* 


1897 


19} 7s 








122» 


1249 


1510 


1547 


1552 


1826 


2645* 


3067 


3162 


3167 


3195 


3200 


3227 


3266 


3282 


3289 


3306# 
















473* 


478* 


463* 


556* 


70«* 


701* 


702* 


751* 


802* 


821 


866* 


898* 


fl99« 


939* 


940* 


978 


I 165* 


1191 


1223* 


1229* 


1379* 


1393* 


1394* 


lail 


1514* 


1537* 


1561* 


1567* 


15/3* 


1611* 


1617* 


1759 


2140 


2141* 


2143 


2145 


2147 


2153 


2155* 


2157* 


2«?18* 


2219 


22251 


2221* 


2226* 


2227* 


2228* 


2234 


2288* 


2289* 


2290* 


2291* 


2292* 


2293* 


2294* 


2295* 


230 7 * 


2306 


2309 


2310 


2311 


2312 


231 3 


233 1 * 


2348* 


2349* 


2353 


2356* 


2360 


23b? 


<e364 


2365* 


2380* 


2381* 


2382* 


2363* 


2396* 


2399* 


2402* 


2403* 


24 15 


24 1 7 * 


24e!6* 


2431 


2442 


2 4 a 3 « 


2444* 


2445* 


2503* 


2504* 


2505* 


2506* 


2507 


2515* 


2519 


2520 


2530* 


2550 


2551* 


2553* 


2554* 


2571 


2573* 


2627* 


3089* 


3093* 


3341* 


3142* 


3143* 


3144* 


3145* 


3146* 


3170 


3176* 


3177* 


3178* 


3179* 


3180* 


3181 * 


3182* 


3269* 


3274* 














3286 
















1606 
















1342 


1376 


1808# 












655 


772 


776 


761 


845 


850 


653 


1006 


1061 


1088 


1095 


1098 


U21 


1200 


1202 


1233 


1480 


1504 


1823 


2327 


2364* 


2506 


2519* 




1061 


1098 


1263 












1088 


1121 


1200 


1245 


1445 


1471 


1480 


1504 


3212 


3229 


3246 


3296 










1546 


i860* 


1892 


1913# 


1927* 


1930* 


1941* 


1943* 


2009* 


2012* 


2015* 


2030* 


2033* 


2057* 






57a# 


712 


714* 


715 


1567 









DZSXAE.Ptl CROSS «EFfe8£NCfe lABLf -» USfeR SYMBOLS 



TESTDR 




492 


494^ 








TESTSE 


003726 


r06» 


1590 








TEST? 


006633 


726 


1358# 








TEST7X 


006642 


1 J60S 


1378 


1383 


1385 




THREt 




2095 


2103«« 


2105 






TKACC 


31717a 


889 


3020# 


3253 






TKVEC a 


000060 


150# 










TPVEC s 


000064 


I5l» 










TRAPVEs 


030034 


1 a9» 










TRCK 


12701 a 


758 


894 


896 


1168 


1392# 


TRKCNT 


mi 356 


7ai 9 


921* 


1141* 


13M0A 


1317* 






1955* 


1958 


1997ft 


20u6 


2H13 


rRK£KR 


303770 


843 


877# 


995 


1086 


1119 


TR TVtC» 


^00014 


144# 










TSEC TO 


012310 


895 


11 76 


1181 


1550 


2094* 


TSTLIM 


1602142 


57 uir 


651 








TSTMSG 


002432 


582 


6434 


62fl# 






TYPADR 


207716 


lk)92 


1110 


1216 


1518 


154(3# 


TYPCOO 


013250 


1520 


1610« 








r ypE 8 


104400 


441 


472 


477 


482 


490 






569 


583 


S87 


588 


605 






635 


636 


639 


642 


643 






79H 


791 


792 


847 


862 






959 


966 


967 


968 


9o9 






11554 


1055 


1056 


1H57 


1072 






llll 


U23 


1213 


1214 


1215 






1257 


1272 


1273 


1274 


127b 






15H6 


15xi7 


IS08 


1512 


1513 






1557 


1559 


1560 


1565 


1566 






16«9 


1610 


lt>15 


1616 


1621 






2253 


2338 


2339 


2342 


2355 






3053 


3056 


3057 


3059 


3080 






3086 


3087 


31^88 


3092 


3096 






3122 


3123 


3124 


31 3a 


3131 






3169 


3171 


3173 


3175 


3197 






3229 


3239 


3246 


3247 


3248 






3299 










ryPEKR 


?061 14 


1209 


1212 


1219» 






rypoc 3 


1U4401 


2341 


2483» 








TyPON 8 


104403 


1230 


2485^ 








TYPOS s 


1 04402 


a74 


479 


484 


557 


1224 


TYPSEL 


^'10012 


&a4 


1558 


I5e>08 






T YPTHK 


?2?2l6 


3221 


3244# 








UKN|NT 


0170 32 


1«69* 


2972# 








UN I TSE 


a 1 070a 


a95* 


498* 


506« 


520* 


524 






1197* 


1377 


1485* 


1555 


1587* 






17BS 


1 790* 


1791* 


1796* 


1800 


UNXDO 


01707a 


2990«! 










U0TNK 


Ki2034« 


»79 


302fl# 


3255 






U1L.0G 


221044 


aai 


8b0 


953 


963 


10«3 






1259 


1270 


30418 






UlTRK 


320576 


862 


3031# 


3256 






WRITE 


&03U2 


740 


7a6» 


919 


1139 


1335 


WRTDON 


f'03462 


8kJl 


813# 








WRTEH 


C 035 10 


8k'2 


821* 








WRTIE a 


000105 


164« 


803 









1340* 


1367* 


1374* 


1865* 


1866» 


1867* 


1912# 


I954«r 


2026* 


2027* 














1261 
















2095* 


210l» 


2105* 


2106 


2108* 


2109* 






517 


535 


555 


562 


563 


566 


567 


568 


606 


610 


611 


615 


621 








645 


648 


673 


774 


775 


776 


768 


789 


663 


864 


869 


870 


874 


956 


957 


958 


1008 


1009 


1022 


1023 


1024 


1025 


1034 


1035 


1073 


1074 


1090 


1«93 


1106 


1107 


1108 


U09 


1217 


1222 


1226 


1231 


1247 


1251 


1254 


1256 


1417 


1434 


1447 


1448 


1473 


1474 


1482 


1483 


1519 


1534 


1535 


1540 


1541 


1545 


1549 


1554 


1571 


1572 


1564 


1585 


1586 


1591 


1592 


1593 


1813 


1818 


1820 


1821 


1825 


1826 


1830 


2148 


2366 


2385 


2434 


2437 


2441 


2482# 


2528 


2637 


3061 


3065 


3069 


3072 


30?3 


3075 


3079 


3085 


3099 


3105 


3106 


3J07 


3U3 


3114 


3115 


3116 


3132 


3134 


3135 


3136 


3137 


3138 


3139 


3164 


3202 


3203 


3205 


3207 


3212 


3213 


3215 


3216 


3251 


3268 


3272 


3277 


327 8 


3286 


3287 


3296 


1515 


1562 


1568 


1574 


1612 


1618 


2464jit 


3236 


533* 


637 


640 


646 


8dM 


892 


1091* 


1118* 


1588 


1594* 


1595 


1779 


1781 


1763* 


1 764* 


1786 


1602 


1616 


1833* 


3941 










1020 


1029 


1046 


1052 


l(i69 


l«b4 


1104 


1116 



HAINUEC 


-1 l-OZRXA-t 


MACYl I 




20-SEP 


-76 15:46 


DZRXAE, 


Pil CROSS 


REFEKENCt 


TABLE - 


- USER 


SYMBOLS 


WRTLOG 


017060 


2984« 








WRTONL 


^03052 


720 


736«f 






WRTRO 


.-104130 


721 


914» 






rtRTSfcK 


5503550 


623 


831i» 






WTCNTP 


021030 


807* 


808* 


30340 


3089 


i^TOOIEa 


000115 


166# 


806 






WTROCK 


<?05456 


722 


1 134» 






WTRETR 


ri7006 


708* 


9b0 


965* 


1063* 


XFRBYT 


003202 


759» 








XHOME 


002670 


666 


670 


«i76» 




XIO 


311366 


1861* 


1862* 


1665 








2.^49 








XOD 


:^U36a 


1663* 


1864* 


l8e>6 


1915» 


XPATGE 


010452 


1700» 


1718 






XRDCMK 


306450 


1296» 


1303 






XRDONL 


006510 


1313« 


1320 






XPEAD 


W04204 


932» 


975 


1278 




XRETUR 


011740 


2014 


2016« 






XSTART 


902722 


552 


7a5# 






XWRITE 


002116 


747« 


819 






XWRTOIM 


003056 


737(11 


744 






XWRTRD 


004140 


916» 


924 






XWTRPC 


005466 


1136» 


I 144 






XXPATG 


P10522 


1727* 


1729 


1742 




ZCRC»A 


317046 


1002 


2979# 






ZCRCLO 


017042 


1028 


2977» 






ZDATAU 


(^17062 


1258 


2985« 






ZDDMIS 


017066 


1083 


29e7« 






ZERO 


022516 


3141 


3176 


3307* 




ZHCRCB 


017106 


1019 


2995» 






ZHCRCL 


017102 


1045 


2993» 






ZHOATA 


017122 


1269 


3001» 






ZHDOLO 


01T126 


1103 


3003» 






ZMROUO 


017U2 


1051 


2997# 






ZHSEKU 


017076 


859 


2991« 


3184 




ZHWRTL 


017U6 


1068 


2999# 






ZRDLOG 


317052 


952 


2961# 






ZSEKUO 


017036 


840 


2975* 


3150 




ZUNXDD 


017072 


1115 


2989* 






ZWRTL.0 


017056 


962 


2983S 






SAUTOB 


013714 


4S6* 


2335 


2456» 




SCH4RC 


012572 


2150* 


2160* 


2167 


2176* 


SCKSWR 


013140 


2S27» 


2469 






SCNTIG 


013665 


2336 


2451» 






SCNTLU 


013660 


2355 


2450# 








'^iab07 


2149 


219l» 


2366 


3450 


SDS2U 


014202 


2552 


2570# 


3090 


3094 


SDECVL 


£14362 


2572 


S618« 






SFILLC 


012604 


2153 


2188# 






SFILL.S 


012603 


2187# 








SGT3WR 


013210 


2339# 


2467 






5H0 8 


000003 


20 


21 






SILLUP 


014130 


2498 


2514 


2533# 




SINTAG 


013715 


2367 


2457# 








012610 


2l92«f 


2441 


2450 




SMAIL s 


^««t*<!* U 


452 


2137 







1071* 2959» 



2181# 



MAINDEC-M-OZRXa-E MACyil 271732) 

DZRXAE.PU CROSS WEFERtNGt TABLE - 
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USER SYMBOLS 



SMNEW 


013703 




2342 


24S4» 








SMSWR 


013678 




2339 


2452# 








SNULL 


012602 




2155 


2186# 








SOCNT 


013034 




2225* 


2254* 


2267# 






SOMODE 


^13036 




2820* 


2224* 


2229 


2232* 


2243* 


SPOWfcR 


014136 




1541 


2529 


2536» 






SPWRAO 


014124 




2531# 










SPWRDN 


1313764 




176 


2498# 


2526 






SPWRMG 


014120 




2S29# 










SPNRUP 


014036 




2308 


2514» 








SOUES 


012606 




2190* 


2385 


2434 


2450 




SRDCHR 


013422 




2J9BU 


2490 








SRDOfeC 


****** 


U 


2492 










SRDUXN 


013542 




2426!» 


2491 








SROOCT* 


****** 


U 


2492 










SRDSZ 8 


000010 




2419# 










SRESRE 


013076 




2303» 


2493 








$R2A 8 


****** 


y 


2494 










SSAVHE 


013(^40 




22a7* 


2492 








SSAVR6 


014134 




2507* 


2515 


2516* 


2517* 


2535i» 


SSB2D 


014146 




25501* 


2646 








SSETUPs 


000114 




206# 


449 


2322 


2456 




SSTuP 8 


177777 




208ft 










SSWR a 


160000 




20 


21» 


2532 






STKB 


013136 




2J19» 


2331 


2348 


2402 


24«<Jtt 


STKS 


013134 




2518» 


2329 


2345 


2369* 


24I0U 


$TN 8 


000001 




20# 










STNPWR 


014312 




2577 


2578 


2598» 






STPB 


.^12600 




2U3* 


2185» 








STPFLG 


012605 




2131 


2169« 








$TPS 


012576 




2171 


2184« 








STRAP 


013716 




160 


2466# 








STRP a 


000012 




2474« 


2483# 


24818 


2485» 


24eb» 


STRPAD 


013740 




2471 


248l« 








STTYIN 


013650 




2427 


2428 


2«45 


2449# 




STVPBNa 


****** 


u 


2066 










STYPDS* 


****** 


u 


2486 










STYPt 


012356 




213l« 


2474 


2482 






STYPEC 


012526 




2152 


2159 


2166 


2171» 


2172 


STYPEX 


012574 




2177 


2179 


218?a 






STYPUC 


012636 






2463 








STYPUN 


SJ12652 






22250 


2485 






STYPUS 


012612 




2216« 


2484 








S0FILL 


313035 




2219* 


2223* 


2233 


2268« 




» s 


022520 




172« 


174 


175« 


179» 










2185 


2186 


2187 


2188 


2109 








2456 


2457 


2458 


2510 


253a 



186# 
2190 
2bia# 



189# 
2191 
2946» 



209« 
2192 
2955# 



243* 
2193 
3007** 



719 
2318 
3020» 



1661 
2319 
30i23# 



19{'j3 2184 
2449# 2450 
3028« 303l» 



MAlNUEC-ll-OZRXA-E MACYll 27(732J 20-SEP«7b i5!«6 

OZRXAE.PII CROSS REFERENCt TABLE — MACRO NAMES 

153« 
153» 



153» 
153# 
6« 
153» 

ism 

153» 
153» 
153» 

153» 



2474# 


2483 
153# 
153« 


2484 


2485 


2467 


2489 


249k) 


2491 


2492 


2493 












153» 


153« 




























1# 


6« 


153«» 


194 


218 


250 


27k3 


288 


348 


413 


431 


679 


698 


730 


798 


908 


926 


1129 


1147 


1288 


1306 


1324 


1346 


1388 


1455 


1625 


1647 


1675 


1684 


1693 


1712 


1720 


1735 


1744 


1764 


1777 


1850 


1873 


1890 


1919 


1933 


I9tt6 


1963 


1976 


1990 


2018 


203S 


2082 


2116 


2195 


227? 


2317 


2322 


2390 


2419 


2460 


2496 


2512 


2541 


2559 


2620 


2950 


3050 


























1# 


153« 




























2474# 































23'3B 
2288 



2519 

?5i^0 



2520 
2506 



153# 
153» 
153» 
153# 
153# 
153« 
153» 
153# 
153# 
2483 
153# 
5» 
5» 

5# 



473 478 463 556 1514 1561 1567 1573 1611 1617 3235 

2340 



2464 2485 2487 2469 2490 2491 2492 2493 
43 



6# 2557 



MAINOEC-U-DZRXA-E HACYU 87(712) 20-Sep-76 iSlUb PAUe 7b 

OZRX&E.Pli CROSS NtFfe,R£NCfe TABLE MACRO NAMES 



.SRANO 


1# 








l» 






.SRDOC 


! # 






.SREAD 




5# 


2315 


.SR2AZ 


Iff 






.SSAVE 


1# 




2270 


.$SP20 


l# 


b# 


2539 


.SSB20 


l# 






,$SCOP 


1# 






.SSIZE 


U 






.SSUPR 








.STRAP 


1» 


6# 


2«58 


.STYPB 


i« 






.STYPD 


l» 






.STYPE 


If 


So 


21l« 


,STYPO 


l# 


5« 


2193 




l« 






.11715 


l# 







MAINPEC-I l-DZRXA-fc HALYll 27(73?) 20-SeP-7fe PAbfc 78 

OZRXAE.PU CROSS RtFfeWENCt TABLE — PERMANENT SYMBOLS 



AOC 


808 . 


891 


9a3 


1«31 


1986 


2587 




















ADO 


807 


8fab 


879 


882 


889 


890 


942 


1^358 


1066 


1171 


1180 


iibi 


1430 


1476 


1499 




1'537 


1754 


1804 


I9e4 


I9e5 


2053 


?0bl 


20b2 


2072 


2105 


2109 


2141 


2221 


2231 


2356 




23t»5 


2553 


e58b 


2588 


3043 


3257 


32b2 


3273 
















ASL 


717 


878 


867 


888 


1658 


1899 


1955 


1962 


1983 


2027 


2379 


2380 


2381 


2470 


3232 




3233 


323<l 




























ASLS 


1183 






























BCC 


1702 






























SEO 


ana 


503 


512 


516 


532 


561 


57b 


579 


596 


599 


601 


662 


785 


805 


823 




856 


881 


951 


961 


980 


1017 


1043 


1064 


1080 


U01 


1114 


1203 


1?07 


1240 


1243 




1253 


12e>6 


1277 


1361 


1400 


1408 


142^ 


1463 


1490 


1495 


1529 


1605 




1757 


1817 




I82a 


18«(1 


1970 


2056 


2144 


2179 


2248 


2336 


2363 


2378 


2631 


3042 


3055 


3064 


3101 




31129 


31 18 


3126 


3152 


3186 


3280 


326b 


3295 
















8GE 


670 


1959 


2M52 


2107 
























8GT 


1205 


2255 


2375 


2416 
























BHI 


578 


581 


598 


603 
























BIC 


533 


5a\ 


bai 


551 


1218 


1382 


1551 


1587 


1594 


1783 


1790 


1833 


1855 


1924 


1940 




1953 


1968 


2025 


204a 


20ab 


20b3 


207i 


2245 


2332 


2349 


2376 


2403 


2409 


2417 




Bice 


711 


1651 


1893 


1998 


2003 






















SIS 


498 
2590 


520 


1091 


1118 


1152 


1159 


1197 


1384 


1485 


1784 


1791 


1868 


2250 


2251 


2383 


BISB 


718 


892 


1659 


1900 
























BIT 


488 


499 


50a 


515 


655 


661 


772 


781 


804 


822 


845 


853 


860 


979 


986 




1006 


1014 


1032 


1040 


1061 


1079 


1088 


1098 


1113 


1121 


1200 


1202 


1245 


1263 


1377 




1380 


1426 


1445 


1462 


iafe5 


1471 


1480 


1489 


1504 


1521 


1528 


1555 


1604 


1779 


1788 




180? 


1816 


1823 


3041 
























BITB 


5U 


1061 


ltt05 


14b7 


1582 


2006 


21&7 


















BUE 


2048 






























8L0S 


2429 






























BIT 


215R 


2256 


2373 


24ia 


2583 






















BMI 


1461 


1533 


1596 


























BNE 


451 


453 


467 


471 


469 


505 


530 


594 


618 


629 


647 


656 


672 


713 


742 




773 


782 


814 


816 


646 


854 


922 


975 


987 


1001 


1007 


1015 


1033 


1041 


1050 




106? 


1082 


1089 


1099 


112? 


1142 


liib 


1173 


1201 


1246 


1264 


1301 


1318 


1341 


1368 




1375 


1378 


ia04 


14ib 


1433 


1446 


1466 


1468 


1472 


1481 


1505 


1522 


1556 


1583 


1654 




1780 


1789 


1803 


1812 


1835 


1838 


1857 


1895 


1926 


2007 


2014 


2029 


2087 


2138 


2146 




2154 


2168 


2175 


2246 


2328 


2334 


2354 


2361 


2368 


2405 


2411 


2433 


2439 


2518 


2594 




2633 


3071 


3081 


3154 


3156 


3168 


3190 


3211 


3220 


3?23 


3245 


3250 


3259 


3261 


3302 


BPL 


492 


497 


502 


519 


525 


638 


641 


666 


779 


851 


972 


997 


1012 


1038 


1096 




1209 


1212 


1234 


1397 


l«5l 


1589 


1762 


1787 


1801 


1939 


1952 


1996 


2002 


2024 


2132 




2172 


2244 


2330 


2346 


2401 


2407 




















BR 


210 


211 


212 


445 


455 


507 


514 


534 


592 


616 


623 


626 


664 


719 


744 




761 


924 


993 


1075 


1124 


1144 


1175 


1210 


1255 


1303 


1320 


1343 


1383 


1385 


1492 




1525 


1527 


1531 


1558 


1607 


1661 


1682 


1691 


1710 


1718 


1729 


1742 


1752 


1819 


1903 




1928 


1931 


1942 


1944 


I960 


1972 


1974 


2000 


2005 


2010 


2016 


2032 


2034 


2050 


2054 




2058 


2134 


2151 


2161 


2170 


2177 


2322 


2237 


2258 


2357 


2384 


2386 


2412 


2435 


2510 




2534 


2585 


2635 


3058 


3074 


3159 


3174 


3193 


3208 


3221 


3225 


3242 


3265 


3291 


3297 


cue 


539 


1705 


2064 


























CLR 


465 


495 


574 


622 


625 


706 


709 


710 


753 


898 


938 


U57 


1158 


1161 


1164 




1280 


1369 


1392 


1409 


1412 


1424 


1652 


1680 


1717 


1809 


1832 


1861 


1863 


2068 


2235 




2343 


2344 


2516 


2579 


3140 


3214 


3252 


3303 
















CURB 


506 


1859 


2093 


2150 


2176 


2440 


2595 


















CMP 


443 


446 


452 


466 


470 


950 


960 


1204 


1399 


1756 


1834 


2327 


2333 


2353 


2360 




2372 


2374 


2^04 


2410 


2413 


2415 


2426 


2589 


3219 


3301 












CMPB 


529 


577 


580 


597 


602 


617 


6b8 


1172 


1925 


1969 


2013 


2028 


2047 


2051 


2055 




2106 


2143 


2145 


2153 


2174 


2178 


2335 


2367 


2432 


2430 


2632 











H A 1 NDEC 




■»£ 




27 (7325 


U t. n R « C. ^1 


Pi i 


CKOSS 




TABLE 


COM 




1 06 


1134 


1 330 


COMB 


1 TSS 








DEC 




6 ? i 


716 


741 




i 27fe 




1317 


1340 


DECS 




2160 


2243 


2254 


EMT 


^ 7 








HALT 


IJU 




570 


649 








2509 


2533 








632 












1 
















225 7 


2382 


25 1 7 












XuT 










JMP 


213 


2 1 4 


S 1 3 










fill 


R1 S 




« e K£, 

i I ~" 






1 268 










1 906 


JSR 




493 


503 


510 






66 7 


705 


736 




3 IS 


841 


843 


848 






923 


931 


932 




1046 


1 052 


1 069 


1084 




« ia^ 




1153 






J 297 


1 298 




1 302 




i 336 


1337 


1 3 J8 


1339 














1727 


1749 


1^51 


1808 








3077 


3090 






3266 


3270 


32 7 J 






437 


36 


439 






<J7 3 


a78 


433 




701 


70? 


707 


7^g 




7 66 




801 


602 




89 J 


HOO 


933 


934 






989 




99 1 




1 162 


116 3 


1165 






1359 




1370 


137 9 




1523 




1546 


1550 




1 827 


: 




1 89& 




? i 36 


2 1 40 


2155 


221^ 




2289 


2290 


2291 


2292 














2466 


246 7 


247 1 


24^8 




2515 


25 1 9 




252 1 






^HAQ 




2575 




3076 












3150 


3161 


3 1 bb 




3199 


3204 


3217 


3218 


M0V9 


456 


584 


589 


fet?7 




1185 


1227 


lfl59 


1493 




18b4 


1892 


1927 


1941 




2094 


2108 


2137 


2165 




2348 


2^02 


2«kJ8 


2431 


NEli 


2230 








NEGB 


iisa 
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NOP 


1843 
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RESET 


435 
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ROL 


548 









ROLB 


1709 








RQR 


544 






_ 


RTI 


440 
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00 




253? 








RTS 


521 




Q 

6 1 






1241 










1987 






2111 


SBC 


25PI 








SEC 


1700 


_ - 






SUB 


S866 


1957 


1 30 


20 


SWA6 


550 








TRAP 


2474 








TST 


450 










621 


111 


07 1 






1242 


I 1 1 


t, 






2086 




2147 


21b9 




3125 


3151 


3153 


3 1 55 




3241 


324 4 


3249 


3258 


TST8 


496 


5 1 8 


524 


593 




1995 






2131 


.ASCII 


2190 


2191 


2682 


2689 




2192 


2450 


2451 


2452 




2706 


2709 


2711 


2713 




2T50 


2752 


2754 


2756 




2801 


2804 


2810 


2815 




2857 


2861 


3664 


2667 




2914 


2925 


2937 


2943 




2449 


261 8 


2955 




,BLKW 


3007 


3020 


3023 


3028 


.BYTE 


475 


felt 




461 




1576 




1614 


1619 




2456 




3237 


3233 




2387 








9ENA8L 


I 




2320 




9ENO 


3309 








«ENDC 


15 


47 


139 


1 S3 




476 


477 








1148 


1289 


1 307 


1 325 




1614 


1 6 1 5 


1 630 


1621 




IS51 


1 S74 


1 391 


1 920 




2273 


231 § 


2321 


2323 




2461 


2467 


2470 


2482 




2494 


2497 


2506 


2507 




3236 


3239 






aEOUlV 


47 


43 


56 


7 1 




129 


130 


131 


132 


sEVEN 


aS38 


2948 








SI 


45 


lU 


139 




475 


476 


480 


461 




1147 


1283 


S306 


1324 




1643 


1614 


1619 


1620 




1850 


1873 


1890 


1919 




ggTg 


2S|T 


2321 


2322 
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life! 1597 















* 




1 89o 


1943 


_ 


TB 




1013 


1 026 














770 


! 


642 


861 




1 105 


Ill* 


1174 


1198 




181^ 




1837 


1867 


?5fl4 


3 1 6M 




3240 


3300 


„„ 








721 


aid 










I C 7 7 






1 Q1 S 


COB 

1596 


1 90 7 


1 908 


1 9W9 






513 


523 






590 


737 


738 


73 9 


740 


743 


657 






872 




944 


945 


95i 


963 


07P1 


1086 


1092 


I 3 jlI 






1 1 6@ 








: ^„ 
1 f 4 fc 


1312 


1313 


1^14 




1 ^ia 


1342 


1 358 


1 362 


1 Ah < 




1 5 1 3 


1 52M 


1 524 


1 HXH 


1536 


1828 


1 836 


1842 


2045 


2 1 52 


3091 


3094 


3095 


3103 


3111 


3275 


3?7 6 


3262 


3289 








sa^ 




459 


494 


509 




542 


547 


7 14 


715 


7 1*6 


749 


7 51 


825 


326 


827 


831 




935 




9 3 7 




940 












1179 


1186 


1192 


: . 


11 Oil 


1 393 


1^94 


14 13 


4PP 


1 4P«i 




156/ 


157 3 


1 hOTP 


1 fci 1 


1697 












2227 


2226 


2234 


2241 


2293 


229« 


2295 


2296 


2297 


2340 


23b« 


a3by 


2398 


2399 


2499 


2500 


2501 


2502 


2503 


2522 


2523 


25^4 


2525 


2526 


2576 


2577 


as'b 


2627 


2628 


3110 


3U<? 


31^/ 


3141 


3142 


3170 


317b 


3U7 


3178 


3179 


3226 


3231 


3235 


3253 


325« 


612 


759 




806 


895 


1601 


1608 


1690 


1699 


1726 


1971 


1975 




2004 


2009 


2173 


2219 


f'2^1^ 




2224 


2436 


2469 


2591 


2634 


2636 
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2236 


2238 


2239 


2240 


2242 


1498 


2070 


207 1 






1166 


1395 


1414 


1475 


2142 


652 


677 


817 


867 


875 


1477 


15ifl 


157/ 


1622 


I7b8 


2182 


247? 


a55b 


2597 


2641 


2091 


2095 


250W 


2582 




2487 


2489 


249lfl 


2491 


2492 


575 


595 


628 


640 


646 


996 


1002 


10U 


1037 


1049 


1460 


1494 


isaa 


1653 


1706 


2247 


2362 


23/ / 


2468 


3054 


3157 


3158 


3165 


3185 


3167 


3260 


3263 


3264 


3279 


3284 


600 


637 


igwa 


1211 


1252 


2171 


2329 


2345 


2400- 


2406 


2918 


2930 








2454 


2536 


2651 


2656 


2661 


2715 


2717 


2719 


2/24 


2727 


2758 


2764 


276b 


2774 


2777 


2818 


2822 


282/ 


£829 


2832 


2870 


2874 


2878 


2881 


2884 


3031 










485 


486 


558 


559 


1516 


1620 


2186 


2187 


2188 


2189 


I9S 


208 


219 


251 


271 


486 


487 


559 


560 


680 


S347 


1369 


1456 


151 / 


1518 


1626 


1648 


1676 


1685 


1694 


1934 


1947 


1964 


1977 


1991 


2551 


2387 


2391 


2419 


2420 


2483 


2484 


g46!3 


2486 


2487 


2513 


2S19 


252(« 


2530 


2532 


72 


101 


M2 


103 


104 


133 


134 


135 


136 


137 


194 


208 


218 


250 


270 


485 


486 


558 


5S9 


679 


1346 


1388 


1455 


1516 


1517 


16gS 


1647 


1675 


1684 


1693 


1933 


1946 


1963 


1976 


1990 


2323 


2351 


2390 


2J91 


2419 



1016 


1042 


1063 


1100 


1141 


1265 


1954 


2P' 1 1 


202 


2031 


2592 




1 M39 


1097 


1235 


1418 


1435 


1452 


883 


954 


964 


998 


1004 


1021 


1228 


1 236 


1 260 


127 1 


1401 


1415 


1930 


199 7 


2008 


2088 


2092 


2110 


722 


723 


724 


725 


726 


767 


1018 


1044 


1059 


1 067 


1102 


1112 


1662 


1663 


1664 


1665 


1666 


1667 


604 




613 


D 


651 


660 


746 


747 


750 


7 58 


809 


810 


896 


915 


916 


917 


918 


919 


??a 






1003 


1020 


1029 


1119 


1135 




1137 


1138 


1139 


^ f 


1267 




1278 


1 295 


1296 


I 1 9 


1 331 


1332 


1333 


1334 


1335 


! K^7 


1 ^^3 




1372 


1373 


17^^ 








3^la 






2 I 37 




XI i 


^1^7 




3fc 7 


3 1 20 


* 2 




i 1 b 


3193 












464 


-.^ 


est 


657 






676 


700 






7e« 


7K7 
I » 


764 


765 


<7 




q^P 


8/1 


8 7 7 


oat 










982 


, t 




1 33^ 




MAX 

1 3^a 


1 a^A 


1115 


1 2 1 7 




1229 






1 ^ta 


iff? 


* 


1 46 7 


! 496 


, C Q 


to. ,1 








1 661? 


17 1 


1814 


2067 


2069 


2074 




2097 


2 135 


2259 


2260 


2261 


2262 


2263 


2288 


2304 


2305 


2306 


2307 


2308 


2309 


2426 


24^7 


2442 


2443 


2444 


2445 


2504 


2505 


2506 


2507 


2508 


2514 


2527 


253?l 


255H 


2551 


2554 


2571 


2629 


2639 


264(« 


2645 


3052 


3066 


3143 


3144 


3145 


3146 


3147 


3148 


3180 


3181 


3162 


3163 


318a 


3194 


3255 


3256 


3269 


33/4 


3281 


3286 


897 




11/0 


1 1 7 7 






1741 


1750 


1755 


1858 


1860 


1862 


2012 




2030 


2033 


2089 


2090 


2225 


2229 


2232 


2233 


d252 


2331 


2264 


2298 


2314 


2370 


<i4 1 8 


2446 


864 


901 


973 


97b 


1 125 


1 187 


1760 


1765 


1792 


18W5 


1846 


1869 


2648 


3045 










2493 












665 


712 


763 


778 


784 


813 


1095 


1154 


1191 


12Mb 


1233 


1239 


1759 


1766 


1800 


1811 


1856 


1894 


3063 


3070 


3060 


3100 


3108 


3117 


3169 


3191 


3192 


3196 


3210 


3222 














1396 


1532 


1595 


1761 


1938 


1951 


2630 












2666 


2670 


2674 


2677 


2697 


2702 


2730 


2734 


2738 


2741 


2744 


2747 


2781 




3fla^ 




jIc™ 


2798 










2850 


2853 


28 


3flflfc 

2888 




05 


2908 


2910 


1517 


1563 


1564 


1569 


1570 


157 5 


2265 


2266 


2267 


2268 


2447 


2446 




7 




432 




458 


699 




799 




Q37 
^7fc 


1^77 


1 564 




1570 


1571 






1713 


1731 




ill*7 


17 IS 
a « 


1 77fl 




2039 


2083 


2 1 1 7 


2137 


2196 


2427 


2429 


2432 




2450 


2458 


2488 


2489 


2490 


2491 


2492 


2493 


2539 


2542 


2560 


2621 


2951 


3051 


105 


106 


107 


108 


109 


U0 


138 












288 


348 


413 


431 


449 


452 


698 


730 


798 


908 


926 


1129 


1563 


1564 


1569 


1570 


1575 


1576 


1712 


1720 


1735 


1 744 


1764 


1777 


2018 


2038 


2082 


2116 


2137 


2195 


2427 


2428 


2432 


2433 


2449 


2450 
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3^ 








249? 








2496 






23 12 


25 1 






2S3W 


2532 


2536 




2539 




d9bw 




3050 


323 7 


3238 




























«7 


195 


219 


251 


271 


289 


34y 


414 


432 


475 


476 


«60 




486 


5b9 














92 7 


1 1 30 


H «8 


^ ^H^ 


1 3i^ 7 


1 32*1 




1389 




1517 




1 □bl 






1 1 4 




1626 






1 oSt 




1713 


1721 










1778 


1851 


1874 




1920 




19«*7 


1964 


1977 


1 991 


201 9 




21^83 


2117 


^196 




aa73 


2318 


2323 


2391 


2393 


2398 


241<^ 


2420 


2429 


2433 


2450 


2461 


2«t>7 


2497 


2513 




2530 


2542 


2S6f 


2621 


5«#51 


3H5 1 


323« 


3239 
















B 1 " T 


2393 


2398 




























• IPf^ 


2338 


2391 




























IIP 


i 


1 5 






474 


479 


(ton 




1515 


1562 


1 568 


1574 


1612 


1618 


2184 




2185 


2186 


2187 


2168 


2189 


2190 


2l'»l 


2192 


2193 


2318 


2319 


2341 


24«2 


2451^ 


2456 




2<l57 


2458 


2482 


2483 


2484 


2485 


240 7 


2469 


2490 


2491 


2492 


2493 


3236 






.IRP 


208 


2288 


2308 


2S00 


2506 


2519 


2520 


















.LIST 


1 

2490 


3 

2491 


153 
24«J2 


174 
2493 


208 
a494 


2419 


247a 


2482 


2483 


2484 


2a85 


2486 


2467 


<ea88 


2489 


.HACKO 


I 


2474 




























.MCALL 


5 


b 


153 


























.NLIST 


1 

2490 


2 

2491 


153 
2492 


174 
2493 


208 
2494 


2419 


2474 


2482 


2483 


2484 


2485 


2486 


2467 


2488 


2469 


,REPT 


ira 






























,SBTTL 


43 


449 


2114 


2193 


2270 


2315 


24a« 


2474 


2494 


2539 


2557 










.TITLE 


10 






























,WOf?D 


173 
2593 


187 
3034 


344 
3035 


345 


346 


1225 


2181 


2184 


2185 


2269 


2318 


2319 


2529 


2531 


2556 
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